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.37.2.1 -r1.37.2.2 --- openacs-4/packages/acs-templating/tcl/date-procs.tcl 13 Feb 2007 09:45:52 -0000 1.37.2.1 +++ openacs-4/packages/acs-templating/tcl/date-procs.tcl 3 Mar 2007 07:33:25 -0000 1.37.2.2 @@ -1011,7 +1011,7 @@ # the user to enter a freeform format append output "\n" - append output "
[lindex $fragment_def 3] | " + set fragment_def $template::util::date::fragment_widgets([string toupper $token]) + set fragment [lindex $fragment_def 1] + append output "" } - append output " |