Index: openacs-4/packages/attendance/lib/cp-attendance.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attendance/lib/cp-attendance.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/attendance/lib/cp-attendance.tcl	28 Dec 2005 04:38:47 -0000	1.14
+++ openacs-4/packages/attendance/lib/cp-attendance.tcl	25 Feb 2006 16:43:05 -0000	1.15
@@ -55,21 +55,26 @@
 		}
 	}
 	
-	db_multirow -extend {session_name cal_item_id date_time grade_id} session_list get_sessions { } {
+	db_multirow -extend {session_name cal_item_id date_time grade_id date_time_serial} session_list get_sessions { } {
 	set cal_item_id [db_string "getcalid" "select cal_item_id from evaluation_cal_task_map where task_item_id=:item_id" -default ""]
 	set session_name [db_string "geteventname" "select name from acs_events where event_id=:cal_item_id" -default ""]
 	set grade_id [db_string "getgradeid" "select grade_id from evaluation_grades where grade_item_id = :grade_item_id" -default ""]
-	set date_time [db_string datetime {
-		select to_char(start_date, 'Mon dd, yyyy hh:miam-')||to_char(end_date, 'hh:miam')
+	
+        set date_time ""
+	set date_time_serial 0
+	db_0or1row datetime {
+		select to_char(start_date, 'Mon dd, yyyy hh:miam-')||to_char(end_date, 'hh:miam') as date_time, to_char(start_date, 'yyyymmddhhmi') as date_time_serial
 		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
 		and e.activity_id = a.activity_id
 		and e.event_id = ci.cal_item_id
 		and ci.cal_item_id = :cal_item_id
-	} -default ""]
 	}
+	}
 
+	template::multirow sort session_list date_time_serial
+
 } else {
 	set return_url [ad_return_url]
 	set create_session_type_url [export_vars -base "attendance/admin/create-cal-session-type" { return_url calendar_id }]