Index: openacs-4/packages/calendar/www/view-list-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/view-list-display.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/calendar/www/view-list-display.tcl	9 Jan 2004 23:11:23 -0000	1.17
+++ openacs-4/packages/calendar/www/view-list-display.tcl	10 Jan 2004 00:19:03 -0000	1.18
@@ -78,8 +78,20 @@
 
 set last_pretty_start_date ""
 # Loop through the events, and add them
-    
-db_foreach select_list_items {} {
+
+set interval_limitation_clause " to_timestamp(:start_date,'YYYY-MM-DD HH24:MI:SS')  and      to_timestamp(:end_date, 'YYYY-MM-DD HH24:MI:SS')"
+
+set order_by_clause " order by $sort_by"
+set additional_limitations_clause ""
+
+if {[string match [db_type] "postgresql"]} {
+    set sysdate "now()"
+} else {
+    set sysdate "sysdate"
+}
+set additional_select_clause " , to_char($sysdate, 'YYYY-MM-DD HH24:MI:SS') as ansi_today, recurrence_id"
+
+db_foreach dbqd.calendar.www.views.select_items {} {
     # Timezonize
     set ansi_start_date [lc_time_system_to_conn $ansi_start_date]
     set ansi_end_date [lc_time_system_to_conn $ansi_end_date]