Index: openacs-4/packages/acs-lang/tcl/localization-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/localization-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-lang/tcl/localization-procs.tcl	18 Nov 2002 17:58:35 -0000	1.5
+++ openacs-4/packages/acs-lang/tcl/localization-procs.tcl	3 Dec 2002 17:26:54 -0000	1.6
@@ -540,16 +540,20 @@
 
 ad_proc -public lc_time_utc_to_local {
     time_value 
-    tz
+    {tz ""}
 } {
     Converts a Universal Time to local time for the specified timezone.
 
     @param time_value        UTC time in the ISO datetime format.
     @param tz                Timezone that must exist in tz_data table.
     @return                  Local time
 } {
+    if { [empty_string_p $tz] } {
+        set tz [lang::conn::timezone]
+    }
 
     set local_time $time_value
+
     if {[catch {
 	set local_time [db_exec_plsql utc_to_local {}]
     } errmsg]
@@ -567,14 +571,18 @@
 
 ad_proc -public lc_time_local_to_utc {
     time_value 
-    tz
+    {tz ""}
 } {
     Converts a local time to a UTC time for the specified timezone.
 
-    @param time_value        Local time in the ISO datetime format.
+    @param time_value        Local time in the ISO datetime format, YYYY-MM-DD HH24:MI:SS
     @param tz                Timezone that must exist in tz_data table.
     @return                  UTC time.
 } {
+    if { [empty_string_p $tz] } {
+        set tz [lang::conn::timezone]
+    }
+
     set utc_time $time_value
     if {[catch {
 	set utc_time [db_exec_plsql local_to_utc {}]