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.27.2.1 -r1.27.2.2
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	25 Mar 2004 14:40:26 -0000	1.27.2.1
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	26 Mar 2004 09:55:14 -0000	1.27.2.2
@@ -50,20 +50,22 @@
   }
 
   # Forward lookup
-  array set fragment_widgets {
-    YYYY {dateFragment year 4 [_ acs-templating.Year]}
-      YY {dateFragment short_year 2 [_ acs-templating.Year]} 
-      MM {dateFragment month 2 [_ acs-templating.Month]}
-     MON {monthFragment month short [_ acs-templating.Month]}
-   MONTH {monthFragment month long [_ acs-templating.Month]}
-      DD {dateFragment day 2 [_ acs-templating.Day]}
-    HH12 {dateFragment short_hours 2 {[_ acs-templating.12-Hour]}}  
-    HH24 {dateFragment hours 2 {[_ acs-templating.24-Hour]}}
-      MI {dateFragment minutes 2 [_ acs-templating.Minutes]}
-      SS {dateFragment seconds 2 [_ acs-templating.Seconds]}
-      AM {ampmFragment ampm 2 [_ acs-templating.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
@@ -1103,6 +1105,3 @@
   }
 }
 
-# Initialize the months array 
-
-template::util::date::init