Index: openacs-4/packages/calendar/www/cal-item-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/Attic/cal-item-edit.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/calendar/www/cal-item-edit.tcl 15 Sep 2001 07:14:32 -0000 1.2
+++ openacs-4/packages/calendar/www/cal-item-edit.tcl 11 Feb 2002 20:53:47 -0000 1.3
@@ -16,6 +16,7 @@
{end_time:array ""}
{name ""}
{description ""}
+ {return_url ""}
}
# find out the user_id
@@ -31,7 +32,7 @@
cal_item_delete $cal_item_id
- ad_returnredirect "?[export_url_vars date action view]"
+ ad_returnredirect "${return_url}?[export_url_vars date action view]"
}
@@ -64,41 +65,4 @@
set action "view"
set date [calendar_make_date [array get event_date]]
-ad_returnredirect "?[export_url_vars date action view]"
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+ad_returnredirect "${return_url}?[export_url_vars date action view]"
Index: openacs-4/packages/calendar/www/cal-item.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/Attic/cal-item.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/calendar/www/cal-item.adp 23 Jan 2002 08:11:16 -0000 1.2
+++ openacs-4/packages/calendar/www/cal-item.adp 11 Feb 2002 20:53:47 -0000 1.3
@@ -10,13 +10,14 @@