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
}