Index: openacs-4/packages/acs-templating/tcl/currency-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/currency-procs.tcl,v diff -u -r1.11 -r1.11.2.1 --- openacs-4/packages/acs-templating/tcl/currency-procs.tcl 29 Jul 2006 00:35:48 -0000 1.11 +++ openacs-4/packages/acs-templating/tcl/currency-procs.tcl 6 Mar 2007 07:38:10 -0000 1.11.2.1 @@ -349,15 +349,15 @@ set trailing_zero [string range [string repeat "0" $format_property] [string length $value] end] } if { $i == 0 || $i == 2 || $i == 4 } { - append output "$format_property" + append output "$format_property" } elseif { [string equal $element(mode) "edit"] && ($i == 1 || $i == 3) } { - append output "\n" + append output "\n" } else { - append output "$value$trailing_zero" + append output "$value$trailing_zero" } incr i } - append output "\n" + append output "\n" return $output }