Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	14 Jul 2007 18:01:13 -0000	1.28
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	29 Jul 2007 20:17:01 -0000	1.29
@@ -382,6 +382,16 @@
   }
   
   DbPackage create_all_functions
+
+  ad_proc tcl_date {timestamp tz_var} {
+    Convert the time stamp (coming from the database) into a format, which
+    can be passed to Tcl's "clock scan".
+  } {
+    upvar $tz_var tz
+    set tz 00
+    regexp {^([^.]+)[.][0-9]+(.*)$} $timestamp _ timestamp tz
+    return $timestamp
+  }
 }