Index: openacs-4/packages/acs-datetime/acs-datetime.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/acs-datetime.info,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-datetime/acs-datetime.info	20 Apr 2001 20:51:09 -0000	1.1
+++ openacs-4/packages/acs-datetime/acs-datetime.info	23 Aug 2001 18:06:23 -0000	1.2
@@ -4,26 +4,32 @@
 <package key="acs-datetime" url="http://www.arsdgita.com/acs-repository/apm/packages/acs-datetime" type="apm_service">
     <package-name>ACS DateTime</package-name>
     <pretty-plural>ACS DateTime</pretty-plural>
+    <initial-install-p>f</initial-install-p>
     <singleton-p>t</singleton-p>
 
-    <version name="4.0b" url="http://www.arsdigita.com/acs-repository/download/apm/acs-datetime-4.0b.apm">
+    <version name="4.0b2" url="http://openacs.org/apms/acs-datetime-4.0b2.apm">
     <database-support>
         <database>oracle</database>
         <database>postgresql</database>
     </database-support>
-        <owner url="mailto:ron@arsdigita.com">Ron Henderson</owner>
+        <owner url="mailto:arjun@openforce.net">Arjun Sanyal</owner>
         <summary>Service package to support date and time functions</summary>
-        <release-date>2001-02-08</release-date>
-        <vendor url="http://www.arsdigita.com/">ArsDigita Corporation</vendor>
+        <release-date>2001-08-23</release-date>
+        <vendor url="http://openacs.org">OpenACS.org</vendor>
+        <description format="text/html">Note: this version of the package requires acs-event(s) for a helper function. This requirement may go away in the future. </description>
 
         <provides url="acs-datetime" version="4.0"/>
+        <requires url="acs-event" version="0.1d"/>
         <requires url="acs-kernel" version="4.0"/>
         <requires url="acs-templating" version="4.0.1"/>
 
         <files>
             <file type="package_spec" path="acs-datetime.info"/>
+            <file type="query_file" db_type="oracle" path="tcl/acs-calendar-procs-oracle.xql"/>
+            <file type="query_file" db_type="postgresql" path="tcl/acs-calendar-procs-postgresql.xql"/>
             <file type="tcl_procs" path="tcl/acs-calendar-procs.tcl"/>
             <file type="tcl_procs" path="tcl/acs-datetime-procs.tcl"/>
+            <file type="query_file" path="tcl/acs-datetime-procs.xql"/>
             <file type="documentation" path="www/doc/coversheet.html"/>
             <file type="documentation" path="www/doc/design.html"/>
             <file type="documentation" path="www/doc/examples/calendar-navigation.adp"/>
Index: openacs-4/packages/acs-datetime/tcl/acs-calendar-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/tcl/Attic/acs-calendar-procs-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-datetime/tcl/acs-calendar-procs-oracle.xql	23 Aug 2001 18:05:15 -0000	1.1
@@ -0,0 +1,28 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+<fullquery name="dt_get_info_from_db.dt_get_information">      
+      <querytext>
+      
+	select to_char(to_date(:the_date,'yyyy-mm-dd'),'J') as julian_date_today,
+               to_char(trunc(to_date(:the_date, 'yyyy-mm-dd'), 'Month'), 'fmMonth') as month, 
+               to_char(trunc(to_date(:the_date, 'yyyy-mm-dd'), 'Month'), 'YYYY') as year, 
+               to_char(trunc(to_date(:the_date, 'yyyy-mm-dd'), 'Month'), 'J') as first_julian_date_of_month, 
+               to_char(last_day(to_date(:the_date, 'yyyy-mm-dd')), 'DD') as num_days_in_month,
+               to_char(trunc(to_date(:the_date, 'yyyy-mm-dd'), 'Month'), 'D') as first_day_of_month, 
+               to_char(last_day(to_date(:the_date, 'yyyy-mm-dd')), 'DD') as last_day,
+               trunc(add_months(to_date(:the_date, 'yyyy-mm-dd'), 1)) as next_month,
+               trunc(add_months(to_date(:the_date, 'yyyy-mm-dd'), -1)) as prev_month,
+               trunc(to_date(:the_date, 'yyyy-mm-dd'), 'yyyy') as beginning_of_year,
+               to_char(last_day(add_months(to_date(:the_date, 'yyyy-mm-dd'), -1)), 'DD') as days_in_last_month,
+               to_char(add_months(to_date(:the_date, 'yyyy-mm-dd'), 1), 'fmMonth') as next_month_name,
+               to_char(add_months(to_date(:the_date, 'yyyy-mm-dd'), -1), 'fmMonth') as prev_month_name
+	from   dual
+    
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/acs-datetime/tcl/acs-calendar-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/tcl/Attic/acs-calendar-procs-postgresql.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-datetime/tcl/acs-calendar-procs-postgresql.xql	23 Aug 2001 18:04:38 -0000	1.1
@@ -0,0 +1,26 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+<fullquery name="dt_get_info_from_db.dt_get_information">      
+      <querytext>
+      
+select 	to_char(to_date(:the_date,'yyyy-mm-dd'), 'J') as julian_date_today,
+	to_char(to_date(:the_date, 'yyyy-mm-dd'), 'fmMonth') as month,
+	to_char(to_date(:the_date, 'yyyy-mm-dd'), 'YYYY') as year, 
+	to_char(date_trunc('month', to_date(:the_date, 'yyyy-mm-dd')),  'J') as first_julian_date_of_month, 
+	to_char(last_day(to_date(:the_date, 'yyyy-mm-dd')), 'DD') as num_days_in_month,
+	to_char(date_trunc('month', to_date(:the_date, 'yyyy-mm-dd')), 'D') as first_day_of_month,
+	to_char(last_day(to_date(:the_date, 'yyyy-mm-dd')), 'DD') as last_day,
+	to_char(to_date(:the_date, 'yyyy-mm-dd') + '1 month'::interval, 'yyyy-mm-dd')  as next_month,
+	to_char(to_date(:the_date, 'yyyy-mm-dd') - '1 month'::interval, 'yyyy-mm-dd')  as prev_month,
+	to_char(date_trunc('year', to_date(:the_date, 'yyyy-mm-dd')), 'yyyy-mm-dd') as beginning_of_year, 
+	to_char(last_day(to_date(:the_date, 'yyyy-mm-dd') - '1 month'::interval), 'DD') as days_in_last_month,
+	to_char(to_date(:the_date, 'yyyy-mm-dd') + '1 month'::interval, 'fmMonth') as next_month_name,
+	to_char(to_date(:the_date, 'yyyy-mm-dd') - '1 month'::interval, 'fmMonth') as prev_month_name;
+
+      </querytext>
+</fullquery>
+
+</queryset>
Index: openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-datetime/tcl/acs-datetime-procs.xql	23 Aug 2001 18:05:49 -0000	1.1
@@ -0,0 +1,13 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+<fullquery name="dt_julian_to_ansi.julian_to_ansi">      
+      <querytext>
+      
+    select to_char(to_date(:julian_date,'J'),'yyyy-mm-dd') 
+      </querytext>
+</fullquery>
+
+ 
+</queryset>