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.28 -r1.29
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	26 Mar 2004 09:05:18 -0000	1.28
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	26 Mar 2004 10:00:51 -0000	1.29
@@ -50,22 +50,20 @@
   }
 
   # Forward lookup
+  array set fragment_widgets {
+    YYYY {dateFragment year 4 Year}
+      YY {dateFragment short_year 2 Year} 
+      MM {dateFragment month 2 Month}
+     MON {monthFragment month short Month}
+   MONTH {monthFragment month long Month}
+      DD {dateFragment day 2 Day}
+    HH12 {dateFragment short_hours 2 {12-Hour}}  
+    HH24 {dateFragment hours 2 {24-Hour}}
+      MI {dateFragment minutes 2 Minutes}
+      SS {dateFragment seconds 2 Seconds}
+      AM {ampmFragment ampm 2 Meridian}
+  }
 
-  # Bug# 1176
-  array set fragment_widgets [list \
-    YYYY [list dateFragment year 4 [_ acs-templating.Year]] \
-      YY [list dateFragment short_year 2 [_ acs-templating.Year]] \
-      MM [list dateFragment month 2 [_ acs-templating.Month]] \
-     MON [list monthFragment month short [_ acs-templating.Month]] \
-   MONTH [list monthFragment month long [_ acs-templating.Month]] \
-      DD [list dateFragment day 2 [_ acs-templating.Day]] \
-    HH12 [list dateFragment short_hours 2 [_ acs-templating.12-Hour]] \
-    HH24 [list dateFragment hours 2 [_ acs-templating.24-Hour]] \
-      MI [list dateFragment minutes 2 [_ acs-templating.Minutes]] \
-      SS [list dateFragment seconds 2 [_ acs-templating.Seconds]] \
-      AM [list ampmFragment ampm 2 [_ acs-templating.Meridian]] \
-  ]
-
   # Reverse lookup
   foreach key [array names fragment_widgets] {
     set fragment_formats([lindex $fragment_widgets($key) 1]) $key
@@ -1105,3 +1103,6 @@
   }
 }
 
+# Initialize the months array 
+
+template::util::date::init