Index: openacs-4/packages/dotlrn-ecommerce/tcl/section-procs-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/tcl/section-procs-oracle.xql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/dotlrn-ecommerce/tcl/section-procs-oracle.xql 16 Jul 2005 12:51:06 -0000 1.2 +++ openacs-4/packages/dotlrn-ecommerce/tcl/section-procs-oracle.xql 13 Mar 2006 14:06:25 -0000 1.3 @@ -43,7 +43,8 @@ to_char(start_date, 'hh:mi') as timestart, to_char(end_date, 'hh:mi') as timeend, to_char(start_date, 'am') as startampm, - to_char(end_date, 'am') as endampm + to_char(end_date, 'am') as endampm, + to_char(start_date, 'yyyymmddhh24miss') as datenum from cal_items ci, acs_events e, acs_activities a, timespans s, time_intervals t where e.timespan_id = s.timespan_id and s.interval_id = t.interval_id Index: openacs-4/packages/dotlrn-ecommerce/tcl/section-procs-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/tcl/section-procs-postgresql.xql,v diff -u -r1.4 -r1.5 --- openacs-4/packages/dotlrn-ecommerce/tcl/section-procs-postgresql.xql 9 Aug 2005 04:31:21 -0000 1.4 +++ openacs-4/packages/dotlrn-ecommerce/tcl/section-procs-postgresql.xql 13 Mar 2006 14:06:25 -0000 1.5 @@ -37,7 +37,7 @@ - select distinct to_char(start_date, 'Mon') as month, to_char(start_date, 'dd') as day, to_char(start_date, 'hh:mi') as timestart, to_char(end_date, 'hh:mi') as timeend, to_char(start_date, 'am') as startampm, to_char(end_date, 'am') as endampm + select distinct to_char(start_date, 'Mon') as month, to_char(start_date, 'dd') as day, to_char(start_date, 'hh:mi') as timestart, to_char(end_date, 'hh:mi') as timeend, to_char(start_date, 'am') as startampm, to_char(end_date, 'am') as endampm, to_char(start_date, 'yyyymmddhh24miss') as datenum from cal_items ci, acs_events e, acs_activities a, timespans s, time_intervals t where e.timespan_id = s.timespan_id and s.interval_id = t.interval_id Index: openacs-4/packages/dotlrn-ecommerce/tcl/section-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-ecommerce/tcl/section-procs.tcl,v diff -u -r1.38 -r1.39 --- openacs-4/packages/dotlrn-ecommerce/tcl/section-procs.tcl 13 Mar 2006 13:28:18 -0000 1.38 +++ openacs-4/packages/dotlrn-ecommerce/tcl/section-procs.tcl 13 Mar 2006 14:06:25 -0000 1.39 @@ -94,7 +94,6 @@ } set days [list] - array set months [list Jan 1 Feb 2 Mar 3 Apr 4 May 5 Jun 6 Jul 7 Aug 8 Sep 9 Oct 10 Nov 11 Dec 12] foreach times [array names arr_sessions] { set times [split $times _] set month [lindex $times 0] @@ -128,7 +127,7 @@ set time "${start}${startampm}-${end}${endampm}" } - lappend text_sessions [list $month [join [lsort -integer [set days_${month}_${start}_${end}_${startampm}_${endampm}]] ,] $time $months($month)] + lappend text_sessions [list $month [join [lsort -integer [set days_${month}_${start}_${end}_${startampm}_${endampm}]] ,] $time $datenum] } }