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.3 -r1.4
--- openacs-4/packages/calendar/www/cal-item-create.tcl	9 Jan 2002 23:53:35 -0000	1.3
+++ openacs-4/packages/calendar/www/cal-item-create.tcl	23 Jan 2002 08:11:16 -0000	1.4
@@ -17,6 +17,7 @@
     {description ""}
     {date now}
     {calendar_id "-1"}
+    {return_url ""}
 } 
 
 if { $date == "now" } {
@@ -110,7 +111,7 @@
 
 # set the date to be the date of the event
 set date [calendar_make_date [array get event_date]]
-ad_returnredirect "?[export_url_vars date action view calendar_id]"
+ad_returnredirect "${return_url}?[export_url_vars date action view calendar_id]"