Index: openacs-4/packages/calendar/tcl/calendar-display-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/Attic/calendar-display-procs.tcl,v diff -u -r1.14 -r1.15 --- openacs-4/packages/calendar/tcl/calendar-display-procs.tcl 16 Apr 2002 05:16:42 -0000 1.14 +++ openacs-4/packages/calendar/tcl/calendar-display-procs.tcl 16 Apr 2002 05:30:24 -0000 1.15 @@ -263,6 +263,11 @@ set calendar_name [calendar_get_name $calendar_id] # ns_log Notice "bma: one calendar $calendar_name" + # In case we need to dispatch to a different URL (ben) + if {![empty_string_p $url_stub_callback]} { + set url_stub [eval $url_stub_callback $calendar_id] + } + db_foreach select_day_items {} { # ns_log Notice "bma: one item" set item "$pretty_start_date - $pretty_end_date: $name ($calendar_name)" 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.13 -r1.14 --- openacs-4/packages/calendar/www/cal-item-create.tcl 10 Apr 2002 00:54:09 -0000 1.13 +++ openacs-4/packages/calendar/www/cal-item-create.tcl 16 Apr 2002 05:30:24 -0000 1.14 @@ -21,6 +21,7 @@ {return_url ""} {recurrence_p 0} {item_type_id ""} + {show_cal_nav 1} } if { $date == "now" } { @@ -123,12 +124,12 @@ # Fix up the return URL if {[empty_string_p $return_url]} { - set return_url "cal-item-view?[export_url_vars date action view cal_item_id]" + set return_url "cal-item-view?[export_url_vars date action view cal_item_id show_cal_nav return_url]" } if {$recurrence_p} { # We must ask for recurrence information - ad_returnredirect "cal-item-create-recurrence?cal_item_id=$cal_item_id&return_url=$return_url" + ad_returnredirect "cal-item-create-recurrence?cal_item_id=$cal_item_id&return_url=[ns_urlencode $return_url]" return } 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.10 -r1.11 --- openacs-4/packages/calendar/www/cal-item.adp 16 Mar 2002 21:06:44 -0000 1.10 +++ openacs-4/packages/calendar/www/cal-item.adp 16 Apr 2002 05:30:24 -0000 1.11 @@ -10,12 +10,14 @@
+ + Index: openacs-4/packages/calendar/www/cal-item.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/Attic/cal-item.tcl,v diff -u -r1.9 -r1.10 --- openacs-4/packages/calendar/www/cal-item.tcl 16 Mar 2002 21:06:44 -0000 1.9 +++ openacs-4/packages/calendar/www/cal-item.tcl 16 Apr 2002 05:30:24 -0000 1.10 @@ -16,6 +16,7 @@ {end_time "now"} {return_url ""} {force_calendar_id ""} + {show_cal_nav 1} } -properties { cal_item_id:onevalue Index: openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl,v diff -u -r1.13 -r1.14 --- openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl 16 Apr 2002 05:16:29 -0000 1.13 +++ openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl 16 Apr 2002 05:30:34 -0000 1.14 @@ -70,8 +70,8 @@ } if {$create_p} { - set hour_template "\$hour" - set item_add_template "ADD" + set hour_template "\$hour" + set item_add_template "ADD" } else { set hour_template "\$hour" set item_add_template "" @@ -109,7 +109,7 @@ if {$view == "list"} { set cal_stuff [calendar::list_display \ - -item_template {$item} \ + -item_template $item_template \ -date $current_date \ -calendar_id_list $list_of_calendar_ids \ -url_stub_callback "calendar_portlet_display::get_url_stub"] Index: openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl,v diff -u -r1.13 -r1.14 --- openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl 16 Apr 2002 05:16:29 -0000 1.13 +++ openacs-4/packages/calendar-portlet/www/calendar-portlet.tcl 16 Apr 2002 05:30:34 -0000 1.14 @@ -51,8 +51,8 @@ set item_template "\$item" if {$create_p} { - set hour_template "\$hour" - set item_add_template "ADD" + set hour_template "\$hour" + set item_add_template "ADD" } else { set hour_template "\$hour" set item_add_template ""