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.45.2.1 -r1.45.2.2
--- openacs-4/packages/acs-templating/tcl/date-procs.tcl	5 Jun 2010 20:51:17 -0000	1.45.2.1
+++ openacs-4/packages/acs-templating/tcl/date-procs.tcl	8 Jan 2012 20:12:49 -0000	1.45.2.2
@@ -872,7 +872,11 @@
   if { $mode ne "edit" } {
     set output {}
     append output "<input type=\"hidden\" name=\"$element(name).$fragment\" value=\"[template::util::leadingPad $value $size]\">"
-    append output $value
+    if {[lsearch {minutes seconds} $fragment]>=0} {
+        append output [template::util::leadingPad $value $size]
+    } else {
+        append output $value
+    }
     return $output
   } else {
     if { [info exists element(${fragment}_interval)] } {
@@ -916,7 +920,7 @@
   if { $mode ne "edit" } {
     set output {}
     append output "<input type=\"hidden\" name=\"$element(name).$fragment\" value=\"$value\">"
-    append output $value
+      append output [string toupper $value]
     return $output
   } else {
     return [template::widget::menu \