Index: openacs-4/packages/calendar/tcl/cal-item-2-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/Attic/cal-item-2-procs.tcl,v diff -u -N -r1.6 -r1.7 --- openacs-4/packages/calendar/tcl/cal-item-2-procs.tcl 18 Nov 2002 18:01:10 -0000 1.6 +++ openacs-4/packages/calendar/tcl/cal-item-2-procs.tcl 4 Dec 2002 09:44:35 -0000 1.7 @@ -62,15 +62,16 @@ } db_1row $query_name {} -column_array row - - set row(start_time) [lc_time_fmt $row(full_start_date) "%X"] + + # Localize + set row(start_time) [lc_time_fmt $row(ansi_start_date) "%X"] # Unfortunately, SQL has weekday starting at 1 = Sunday - set row(day_of_week) [expr [lc_time_fmt $row(full_start_date) "%w"] + 1] - set row(pretty_day_of_week) [lc_time_fmt $row(full_start_date) "%A"] - set row(day_of_month) [lc_time_fmt $row(full_start_date) "%d"] - set row(pretty_short_start_date) [lc_time_fmt $row(full_start_date) "%x"] + set row(day_of_week) [expr [lc_time_fmt $row(ansi_start_date) "%w"] + 1] + set row(pretty_day_of_week) [lc_time_fmt $row(ansi_start_date) "%A"] + set row(day_of_month) [lc_time_fmt $row(ansi_start_date) "%d"] + set row(pretty_short_start_date) [lc_time_fmt $row(ansi_start_date) "%x"] - set row(end_time) [lc_time_fmt $row(full_end_date) "%X"] + set row(end_time) [lc_time_fmt $row(ansi_end_date) "%X"] } ad_proc -public add_recurrence {