Index: openacs-4/packages/calendar/tcl/calendar-display-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/Attic/calendar-display-procs-postgresql.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/calendar/tcl/calendar-display-procs-postgresql.xql	25 Mar 2002 15:16:53 -0000	1.1
@@ -0,0 +1,138 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+<fullquery name="calendar::one_month_display.select_monthly_items">      
+      <querytext>
+      
+	select   to_char(start_date, 'J') as start_date,
+	         coalesce(e.name, a.name) as name,
+	         coalesce(e.description, a.description) as description,
+                 coalesce(e.status_summary, a.status_summary) as status_summary,
+	         e.event_id as item_id
+	from     acs_activities a,
+	         acs_events e,
+	         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
+	in       (
+	         select  cal_item_id
+	         from    cal_items
+	         where   on_which_calendar = :calendar_id
+         )
+	
+      </querytext>
+</fullquery>
+
+
+<fullquery name="calendar::one_week_display.select_weekday_info">
+<querytext>
+        select   to_char(to_date(:current_date, 'yyyy-mm-dd'), 'D') 
+        as       day_of_the_week,
+        to_char(next_day(to_date(:current_date, 'yyyy-mm-dd')-7, 'Sunday')) 
+        as       sunday_of_the_week,
+        to_char(next_day(to_date(:current_date, 'yyyy-mm-dd'), 'Saturday')) 
+        as       saturday_of_the_week
+        from     dual
+</querytext>
+</fullquery>
+
+
+<fullquery name="calendar::one_week_display.select_week_items">
+<querytext>
+select   to_char(start_date, 'J') as start_date,
+         to_char(start_date, 'HH:MIpm') as pretty_start_date,
+         to_char(end_date, 'HH:MIpm') as pretty_end_date,
+         to_char(start_date,'HH24:MI') as start_date,
+         to_char(end_date,'HH24:MI') as end_date,
+         coalesce(e.name, a.name) as name,
+         coalesce(e.status_summary, a.status_summary) as status_summary,
+         e.event_id as item_id,
+         (select type from cal_item_types where item_type_id= cal_items.item_type_id) as item_type
+from     acs_activities a,
+         acs_events e,
+         timespans s,
+         time_intervals t,
+         cal_items
+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 = cal_items.cal_item_id       
+and      start_date between
+         to_date(:sunday_of_the_week,'YYYY-MM-DD') and
+         to_date(:saturday_of_the_week,'YYYY-MM-DD')
+and      e.event_id
+in       (
+         select  cal_item_id
+         from    cal_items
+         where   on_which_calendar = :calendar_id
+         )
+</querytext>
+</fullquery>
+
+<fullquery name="calendar::one_day_display.select_day_items">
+<querytext>
+	select   to_char(start_date, 'HH24') as start_hour,
+         to_char(start_date, 'HH:MIpm') as pretty_start_date,
+         to_char(end_date, 'HH:MIpm') as pretty_end_date,
+         to_char(start_date, 'HH24:MI') as start_date,
+         to_char(end_date, 'HH24:MI') as end_date,
+         coalesce(e.name, a.name) as name,
+         coalesce(e.status_summary, a.status_summary) as status_summary,
+         e.event_id as item_id,
+         (select type from cal_item_types where item_type_id= cal_items.item_type_id) as item_type
+from     acs_activities a,
+         acs_events e,
+         timespans s,
+         time_intervals t,
+         cal_items
+where    e.timespan_id = s.timespan_id
+and      s.interval_id = t.interval_id
+and      e.activity_id = a.activity_id
+and      start_date between
+         to_date(:current_date,:date_format) and
+         to_date(:current_date,:date_format) + (24 - 1/3600)/24
+and     cal_items.cal_item_id= e.event_id
+and      e.event_id
+in       (
+         select  cal_item_id
+         from    cal_items
+         where   on_which_calendar = :calendar_id
+         )
+	
+</querytext>
+</fullquery>
+
+<fullquery name="calendar::list_display.select_day_items">
+<querytext>
+	select   to_char(start_date, 'HH24') as start_hour,
+         to_char(start_date, 'HH:MIpm') as pretty_start_date,
+         to_char(end_date, 'HH:MIpm') as pretty_end_date,
+         coalesce(e.name, a.name) as name,
+         coalesce(e.status_summary, a.status_summary) as status_summary,
+         e.event_id as item_id
+from     acs_activities a,
+         acs_events e,
+         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      start_date between
+         to_date(:current_date,:date_format) and
+         to_date(:current_date,:date_format) + (24 - 1/3600)/24
+and      e.event_id
+in       (
+         select  cal_item_id
+         from    cal_items
+         where   on_which_calendar = :calendar_id
+         )
+	
+</querytext>
+</fullquery>
+ 
+</queryset>