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 -N
--- openacs-4/packages/acs-lang/tcl/locale-procs-oracle.xql 3 Dec 2002 17:26:54 -0000 1.3
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,14 +0,0 @@
-
-
-
- oracle8.1.6
-
-
-
-
- select ( (sysdate - timezone.local_to_utc (timezone.get_id(:system_timezone), sysdate)) * 24 ) from dual
-
-
-
-
-
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 -N
--- openacs-4/packages/acs-lang/tcl/locale-procs-postgresql.xql 8 Aug 2003 12:21:27 -0000 1.5
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,18 +0,0 @@
-
-
-
- postgresql7.1
-
-
-
-
- select (extract(epoch from current_timestamp
- + timezone__get_offset (timezone__get_id(:system_timezone), current_timestamp)
- )
- - extract(epoch from current_timestamp)
- ) / 60/60;
-
-
-
-
-
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 -N -r1.10 -r1.11
--- openacs-4/packages/acs-lang/tcl/locale-procs.xql 27 Feb 2005 22:45:39 -0000 1.10
+++ openacs-4/packages/acs-lang/tcl/locale-procs.xql 16 Nov 2017 09:37:57 -0000 1.11
@@ -1,6 +1,17 @@
+
+
+ select cast(
+ to_char(
+ current_timestamp at time zone :system_timezone - current_timestamp at time zone 'UTC'
+ , 'HH24MI')
+ as float) / 100
+ from dual
+
+
+
select default_locale