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