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.5 -r1.6
--- openacs-4/packages/calendar/www/cal-item.tcl	11 Feb 2002 06:07:39 -0000	1.5
+++ openacs-4/packages/calendar/www/cal-item.tcl	25 Feb 2002 22:14:20 -0000	1.6
@@ -15,6 +15,7 @@
     {start_time "now"}
     {end_time "now"}
     {return_url ""}
+    {force_calendar_id ""}
 } -properties {
     cal_item_id:onevalue
 
@@ -123,6 +124,10 @@
 
     db_multirow calendars list_calendars {}
 
+    if {![empty_string_p $force_calendar_id]} {
+        set force_calendar_name [calendar_get_name $force_calendar_id]
+    }
+
 }
 
 ad_return_template