Index: openacs-4/packages/acs-templating/tcl/date-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/date-procs.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	11 Dec 2003 21:39:57 -0000	1.24
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	18 Dec 2003 12:24:35 -0000	1.25
@@ -266,6 +266,29 @@
       }
       return "to_date('$value', '$format')"
     }
+    ansi {
+      # LARS: Empty date results in NULL value
+      if { [empty_string_p $date] } {
+          return {}
+      }
+      set value ""
+      set pad "0000"
+      set prepend ""
+      set clipped_date [lrange $date 0 2]
+      foreach fragment $clipped_date {
+          append value "$prepend[string range $pad [string length $fragment] end]$fragment"
+          set pad "00"
+          set prepend "-"
+      }
+      append value " "
+      set prepend ""
+      set clipped_time [lrange $date 3 5]
+      foreach fragment $clipped_time {
+          append value "$prepend[string range $pad [string length $fragment] end]$fragment"
+          set prepend ":"
+      }
+      return $value
+    }
     linear_date {
       # Return a date in format "YYYY MM DD HH24 MI SS"
       # For use with karl's non-working form builder API
@@ -419,7 +442,7 @@
                 set ansi_minutes 0
                 set ansi_seconds 0
             } else {
-                error "Invalid date: $datetime"
+                error "Invalid date: $value"
             }
         }
         # Return new date, but use old format