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.29 -r1.30
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	26 Mar 2004 10:00:51 -0000	1.29
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	20 Apr 2004 21:13:07 -0000	1.30
@@ -50,20 +50,22 @@
   }
 
   # 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
@@ -1103,6 +1105,3 @@
   }
 }
 
-# Initialize the months array 
-
-template::util::date::init