Index: openacs-4/packages/acs-lang/acs-lang.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/acs-lang.info,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-lang/acs-lang.info	20 Apr 2001 20:51:08 -0000	1.1
+++ openacs-4/packages/acs-lang/acs-lang.info	2 May 2001 20:14:38 -0000	1.2
@@ -40,13 +40,29 @@
             <file type="data_model" db_type="oracle" path="sql/oracle/currency.sql"/>
             <file type="data_model" db_type="oracle" path="sql/oracle/message-catalog-drop.sql"/>
             <file type="data_model" db_type="oracle" path="sql/oracle/message-catalog.sql"/>
+            <file type="data_model_create" db_type="postgresql" path="sql/postgresql/acs-lang-create.sql"/>
+            <file type="data_model" db_type="postgresql" path="sql/postgresql/ad-locales-drop.sql"/>
+            <file type="data_model" db_type="postgresql" path="sql/postgresql/ad-locales.sql"/>
+            <file type="data_model" db_type="postgresql" path="sql/postgresql/currency.sql"/>
+            <file type="data_model" db_type="postgresql" path="sql/postgresql/message-catalog-drop.sql"/>
+            <file type="data_model" db_type="postgresql" path="sql/postgresql/message-catalog.sql"/>
             <file type="tcl_procs" path="tcl/acs-lang-procs.tcl"/>
             <file type="tcl_init" path="tcl/lang-init.tcl"/>
-            <file type="tcl_procs" path="tcl/lang-procs.tcl"/>
+	    <file type="query_file" db_type="postgresql" path="tcl/lang-init-postgresql.xql"/>             
+	    <file type="query_file" db_type="oracle" path="tcl/lang-init-oracle.xql"/>             
+	    <file type="tcl_procs" path="tcl/lang-procs.tcl"/>
+	    <file type="query_file" db_type="oracle" path="tcl/lang-procs-oracle.xql"/>             
+	    <file type="query_file" path="tcl/lang-procs.xql"/>             
             <file type="tcl_init" path="tcl/locale-init.tcl"/>
             <file type="tcl_procs" path="tcl/locale-procs.tcl"/>
+	    <file type="query_file" db_type="oracle" path="tcl/locale-procs-oracle.xql"/>             
+	    <file type="query_file" db_type="postgresql" path="tcl/locale-procs-postgresql.xql"/>             
+	    <file type="query_file" path="tcl/locale-procs.xql"/>             
             <file type="tcl_init" path="tcl/localization-data-init.tcl"/>
             <file type="tcl_procs" path="tcl/localization-procs.tcl"/>
+	    <file type="query_file" db_type="oracle" path="tcl/localization-procs-oracle.xql"/>             
+	    <file type="query_file" db_type="postgresql" path="tcl/localization-procs-postgresql.xql"/>             
+	    <file type="query_file" path="tcl/localization-procs.xql"/>             
             <file type="content_page" path="www/catalog-test.adp"/>
             <file type="content_page" path="www/catalog-test.tcl"/>
             <file type="content_page" path="www/compile.tcl"/>
@@ -57,16 +73,24 @@
             <file type="documentation" path="www/doc/questions"/>
             <file type="content_page" path="www/format-test.adp"/>
             <file type="content_page" path="www/format-test.tcl"/>
+	    <file type="query_file" db_type="oracle" path="www/format-test-oracle.xql"/>             
+	    <file type="query_file" db_type="postgresql" path="www/format-test-postgresql.xql"/>             
             <file type="content_page" path="www/index.html"/>
             <file type="content_page" path="www/locale-set.tcl"/>
             <file type="content_page" path="www/set-system-timezone.tcl"/>
+	    <file type="query_file" db_type="oracle" path="www/set-system-timezone-oracle.xql"/>             
+	    <file type="query_file" db_type="postgresql" path="www/set-system-timezone-postgresql.xql"/>             
             <file type="content_page" path="www/show-catalog.adp"/>
             <file type="content_page" path="www/show-catalog.tcl"/>
             <file type="content_page" path="www/show.tcl"/>
             <file type="content_page" path="www/test.adp"/>
             <file type="content_page" path="www/test.tcl"/>
+	    <file type="query_file" db_type="oracle" path="www/test-oracle.xql"/>             
+	    <file type="query_file" db_type="postgresql" path="www/test-postgresql.xql"/>             
             <file type="content_page" path="www/timezone.adp"/>
             <file type="content_page" path="www/timezone.tcl"/>
+	    <file type="query_file" db_type="oracle" path="www/timezone-oracle.xql"/>             
+	    <file type="query_file" db_type="postgresql" path="www/timezone-postgresql.xql"/>             
             <file type="content_page" path="www/tz-test.tcl"/>
         </files>
         <parameters>
Index: openacs-4/packages/acs-lang/tcl/lang-init-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/Attic/lang-init-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/tcl/lang-init-oracle.xql	2 May 2001 20:15:34 -0000	1.1
@@ -0,0 +1,14 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="select_lang_keys">      
+      <querytext>
+	select key 
+	,rtrim(lang) as lang 
+	,message 
+	from lang_messages
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/acs-lang/tcl/lang-init-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/Attic/lang-init-postgresql.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/tcl/lang-init-postgresql.xql	2 May 2001 20:15:34 -0000	1.1
@@ -0,0 +1,13 @@
+<?xml version="1.0"?>
+<queryset>
+<rdbms><type>postgresql</type><version>7.1</version></rdbms>
+ 
+<fullquery name="select_lang_keys">
+    <querytext>
+        select key ,trim(trailing from lang) as lang ,message
+	from lang_messages
+    </querytext>
+</fullquery>
+	        
+</queryset>
+	                            
\ No newline at end of file
Index: openacs-4/packages/acs-lang/tcl/lang-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/Attic/lang-procs-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/tcl/lang-procs-oracle.xql	2 May 2001 20:15:34 -0000	1.1
@@ -0,0 +1,22 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="lang_message_register.lang_message_update">      
+      <querytext>
+		    update lang_messages set 
+		    registered_p = 't' 
+                    ,message = empty_clob() 
+		    where lang = :lang and key = :key
+            returning message into :1
+      </querytext>
+</fullquery>
+
+ 
+<fullquery name="lang_message_register.lang_message_insert">      
+      <querytext>
+		insert into lang_messages (key, lang, message, registered_p) 
+		values (:key, :lang, empty_clob(),'t') 
+                returning message into :1
+      </querytext>
+</fullquery>
+</queryset>
Index: openacs-4/packages/acs-lang/tcl/lang-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/Attic/lang-procs.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/tcl/lang-procs.xql	2 May 2001 20:15:34 -0000	1.1
@@ -0,0 +1,22 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="lang_message_register.lang_message_update">      
+      <querytext>
+		    update lang_messages set 
+		    registered_p = 't' 
+                    ,message = :message 
+		    where lang = :lang and key = :key
+      </querytext>
+</fullquery>
+
+ 
+<fullquery name="lang_message_register.lang_message_insert">      
+      <querytext>
+		insert into lang_messages (key, lang, message, registered_p) 
+		values (:key, :lang, :message,'t') 
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/acs-lang/tcl/locale-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/Attic/locale-procs-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/tcl/locale-procs-oracle.xql	2 May 2001 20:15:34 -0000	1.1
@@ -0,0 +1,16 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+<fullquery name="ad_locale_system_tz_offset.system_offset">      
+      <querytext>
+      
+	select ( (sysdate - timezone.local_to_utc (:system_timezone, sysdate)) * 24 )
+	from dual
+    
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/acs-lang/tcl/locale-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/Attic/locale-procs-postgresql.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/tcl/locale-procs-postgresql.xql	2 May 2001 20:15:34 -0000	1.1
@@ -0,0 +1,16 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+<fullquery name="ad_locale_system_tz_offset.system_offset">      
+      <querytext>
+      
+	select ( (current_time - timezone_local_to_utc (:system_timezone, current_time)) * 24 )
+	
+    
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/acs-lang/tcl/locale-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/locale-procs.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/tcl/locale-procs.xql	2 May 2001 20:15:34 -0000	1.1
@@ -0,0 +1,39 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="ad_locale_charset_for_locale.charset_for_locale">      
+      <querytext>
+      
+	select mime_charset
+	  from ad_locales 
+	 where locale = :locale
+    
+      </querytext>
+</fullquery>
+
+ 
+<fullquery name="ad_locale_locale_from_lang.default_locale">      
+      <querytext>
+      
+	select locale 
+	  from ad_locales 
+	 where language = :language
+               and default_p = 't'
+    
+      </querytext>
+</fullquery>
+
+ 
+<fullquery name="ad_locale_locale_from_lang.default_locale">      
+      <querytext>
+      
+	select locale 
+	  from ad_locales 
+	 where language = :language
+               and default_p = 't'
+    
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/acs-lang/tcl/localization-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/Attic/localization-procs-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/tcl/localization-procs-oracle.xql	2 May 2001 20:15:34 -0000	1.1
@@ -0,0 +1,28 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+<fullquery name="lc_time_utc_to_local.utc_to_local">      
+      <querytext>
+      
+	    begin
+	    :1 := to_char(timezone.utc_to_local(:tz, to_date(:time_value, 'YYYY-MM-DD HH24:MI:SS')), 'YYYY-MM-DD HH24:MI:SS');
+	    end;
+	
+      </querytext>
+</fullquery>
+
+ 
+<fullquery name="lc_time_local_to_utc.local_to_utc">      
+      <querytext>
+      
+	    begin
+	    :1 := to_char(timezone.local_to_utc(:tz, to_date(:time_value, 'YYYY-MM-DD HH24:MI:SS')), 'YYYY-MM-DD HH24:MI:SS');
+	    end;
+	
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/acs-lang/tcl/localization-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/Attic/localization-procs-postgresql.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/tcl/localization-procs-postgresql.xql	2 May 2001 20:15:34 -0000	1.1
@@ -0,0 +1,24 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+<fullquery name="lc_time_utc_to_local.utc_to_local">      
+      <querytext>
+
+	    select to_char(timezone_utc_to_local(:tz, to_date(:time_value, 'YYYY-MM-DD HH24:MI:SS')), 'YYYY-MM-DD HH24:MI:SS');
+	
+      </querytext>
+</fullquery>
+
+ 
+<fullquery name="lc_time_local_to_utc.local_to_utc">      
+      <querytext>
+
+	    select  to_char(timezone_local_to_utc(:tz, to_date(:time_value, 'YYYY-MM-DD HH24:MI:SS')), 'YYYY-MM-DD HH24:MI:SS');
+	
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/acs-lang/tcl/localization-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/localization-procs.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/tcl/localization-procs.xql	2 May 2001 20:15:34 -0000	1.1
@@ -0,0 +1,23 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="lc_monetary_currency.lc_currency_select">      
+      <querytext>
+      
+	SELECT fractional_digits
+               ,html_entity 
+          FROM currency_codes 
+         WHERE iso = :currency
+    
+      </querytext>
+</fullquery>
+
+ 
+<fullquery name="lc_list_all_timezones.all_timezones">      
+      <querytext>
+      select unique tz, gmt_offset from timezones order by tz
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/acs-lang/www/format-test-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/Attic/format-test-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/www/format-test-oracle.xql	2 May 2001 20:16:19 -0000	1.1
@@ -0,0 +1,13 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+<fullquery name="lang_system_time_select">      
+      <querytext>
+      SELECT to_char(sysdate, 'YYYY-MM-DD HH24:MI:SS') AS system_time FROM dual
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/acs-lang/www/format-test-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/Attic/format-test-postgresql.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/www/format-test-postgresql.xql	2 May 2001 20:16:19 -0000	1.1
@@ -0,0 +1,12 @@
+<?xml version="1.0"?>
+<queryset>
+<rdbms><type>postgresql</type><version>7.1</version></rdbms>
+ 
+<fullquery name="lang_system_time_select">
+    <querytext>
+	SELECT to_char(current_time, 'YYYY-MM-DD HH24:MI:SS') AS system_time
+    </querytext>
+</fullquery>
+	        
+</queryset>
+	                            
\ No newline at end of file
Index: openacs-4/packages/acs-lang/www/set-system-timezone-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/Attic/set-system-timezone-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/www/set-system-timezone-oracle.xql	2 May 2001 20:16:19 -0000	1.1
@@ -0,0 +1,14 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+<fullquery name="sysdate">      
+      <querytext>
+      select to_char(sysdate, 'YYYY-MM-DD
+HH24:MI:SS') from dual 
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/acs-lang/www/set-system-timezone-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/Attic/set-system-timezone-postgresql.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/www/set-system-timezone-postgresql.xql	2 May 2001 20:16:19 -0000	1.1
@@ -0,0 +1,12 @@
+<?xml version="1.0"?>
+<queryset>
+<rdbms><type>postgresql</type><version>7.1</version></rdbms>
+ 
+<fullquery name="sysdate">
+    <querytext>
+	select to_char(current_time, 'YYYY-MM-DD HH24:MI:SS')
+    </querytext>
+</fullquery>
+	        
+</queryset>
+	                            
\ No newline at end of file
Index: openacs-4/packages/acs-lang/www/test-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/Attic/test-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/www/test-oracle.xql	2 May 2001 20:16:19 -0000	1.1
@@ -0,0 +1,13 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+<fullquery name="lang_system_time_select">      
+      <querytext>
+      SELECT to_char(sysdate, 'YYYY-MM-DD HH24:MI:SS') AS system_time FROM dual
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/acs-lang/www/test-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/Attic/test-postgresql.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/www/test-postgresql.xql	2 May 2001 20:16:19 -0000	1.1
@@ -0,0 +1,13 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+<fullquery name="lang_system_time_select">      
+      <querytext>
+      SELECT to_char(current_time, 'YYYY-MM-DD HH24:MI:SS') AS system_time
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/acs-lang/www/timezone-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/Attic/timezone-oracle.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/www/timezone-oracle.xql	2 May 2001 20:16:19 -0000	1.1
@@ -0,0 +1,13 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+<fullquery name="lang_system_time_select">      
+      <querytext>
+      SELECT to_char(sysdate, 'YYYY-MM-DD HH24:MI:SS') AS system_time FROM dual
+      </querytext>
+</fullquery>
+
+ 
+</queryset>
Index: openacs-4/packages/acs-lang/www/timezone-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/www/Attic/timezone-postgresql.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-lang/www/timezone-postgresql.xql	2 May 2001 20:16:19 -0000	1.1
@@ -0,0 +1,12 @@
+<?xml version="1.0"?>
+<queryset>
+<rdbms><type>postgresql</type><version>7.1</version></rdbms>
+ 
+<fullquery name="lang_system_time_select">
+    <querytext>
+	select to_char(current_time, 'YYYY-MM-DD HH24:MI:SS') AS system_time
+    </querytext>
+</fullquery>
+	        
+</queryset>
+	                            
\ No newline at end of file