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 -N -r1.11 -r1.12
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	21 May 2002 20:21:02 -0000	1.11
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	11 Jul 2002 13:48:05 -0000	1.12
@@ -249,6 +249,17 @@
       }
       return $ret
     }
+    linear_date_no_time {
+      # Return a date in format "YYYY MM DD"
+      set clipped_date [lrange $date 0 2]
+      set ret [list]
+      set pad "0000"
+      foreach fragment $clipped_date {
+        lappend ret "[string range $pad [string length $fragment] end]$fragment"
+        set pad "00"
+      }
+      return $ret
+    }
     display_date {
 
       # Return a beautified date.  It should use the widget format string but DRB