Index: openacs-4/contrib/packages/project-manager/tcl/project-manager-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/project-manager-procs.tcl,v
diff -u -r1.2.2.8 -r1.2.2.9
--- openacs-4/contrib/packages/project-manager/tcl/project-manager-procs.tcl	21 Sep 2004 00:29:44 -0000	1.2.2.8
+++ openacs-4/contrib/packages/project-manager/tcl/project-manager-procs.tcl	23 Sep 2004 22:00:06 -0000	1.2.2.9
@@ -29,6 +29,36 @@
 }
 
 
+ad_proc -public pm::util::reformat_date {
+    the_date
+} {
+    the end date comes in this format 2004 05 17
+    we need to get it in the {2004} {05} {17} {} {} {} format
+    
+    @author Jade Rubick (jader@bread.com)
+    
+    @creation-date 2004-09-23
+    
+    
+    @param the_date
+
+
+    @return 
+    
+    @error 
+} {
+
+    regexp {(.*) (.*) (.*)} $the_date match year month day
+        if {[exists_and_not_null year]} {
+            set return_val "$year $month $day {} {} {}"
+        } else {
+            set return_val "{} {} {} {} {} {}"
+        }
+    
+    return $return_val
+}
+
+
 ad_proc -public pm::util::string_truncate_and_pad {
     -length
     {-ellipsis "..."}