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.18 -r1.19 --- openacs-4/packages/calendar/www/cal-item-edit.tcl 21 Jul 2003 19:21:36 -0000 1.18 +++ openacs-4/packages/calendar/www/cal-item-edit.tcl 11 Aug 2003 12:14:16 -0000 1.19 @@ -15,6 +15,8 @@ # Permissions # FIXME: we need to add a permissions check here! +set calendar_list [calendar::calendar_list] + # Create the form form create cal_item @@ -89,8 +91,8 @@ element set_properties cal_item cal_item_id -value $cal_item(cal_item_id) element set_properties cal_item title -value $cal_item(name) element set_properties cal_item date -value [template::util::date::from_ansi $cal_item(start_date)] - element set_properties cal_item start_time -value [template::util::date::from_ansi $cal_item(ansi_start_date) [lc_get formbuilder_time_format]] - element set_properties cal_item end_time -value [template::util::date::from_ansi $cal_item(ansi_end_date) [lc_get formbuilder_time_format]] + element set_properties cal_item start_time -value [template::util::date::from_ansi $cal_item(start_date_ansi) [lc_get formbuilder_time_format]] + element set_properties cal_item end_time -value [template::util::date::from_ansi $cal_item(end_date_ansi) [lc_get formbuilder_time_format]] element set_properties cal_item description -value $cal_item(description) element set_properties cal_item item_type_id -value $cal_item(item_type_id)