Index: openacs.org-dev/packages/acs-templating/tcl/date-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-templating/tcl/date-procs.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/acs-templating/tcl/date-procs.tcl	9 Jul 2002 17:34:59 -0000	1.1.1.1
+++ openacs.org-dev/packages/acs-templating/tcl/date-procs.tcl	25 Jul 2002 18:46:52 -0000	1.1.1.2
@@ -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