Index: openacs-4/packages/calendar/www/cal-item-create.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/Attic/cal-item-create.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/calendar/www/cal-item-create.tcl	16 Apr 2002 05:30:24 -0000	1.14
+++ openacs-4/packages/calendar/www/cal-item-create.tcl	18 Sep 2002 12:12:03 -0000	1.15
@@ -101,6 +101,7 @@
 	
     if { [empty_string_p $calendar_id] } {
 	ad_return_complaint 1 "You need to supply a calendar"
+        ad_script_abort
     }
 
     # now we make sure that the user has the permission 
@@ -130,9 +131,10 @@
 if {$recurrence_p} {
     # We must ask for recurrence information
     ad_returnredirect "cal-item-create-recurrence?cal_item_id=$cal_item_id&return_url=[ns_urlencode $return_url]"
-    return
+    ad_script_abort
 }
 
 # set the date to be the date of the event
-set date [calendar_make_date [array get event_date]]
 ad_returnredirect "${return_url}"
+ad_script_abort
+set date [calendar_make_date [array get event_date]]