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.12 -r1.13
--- openacs-4/packages/acs-templating/tcl/currency-procs.tcl 10 Jan 2007 21:22:12 -0000 1.12
+++ openacs-4/packages/acs-templating/tcl/currency-procs.tcl 14 May 2007 20:30:27 -0000 1.13
@@ -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"
- } elseif { $element(mode) eq "edit" && ($i == 1 || $i == 3) } {
- append output "\n"
+ append output "$format_property"
+ } elseif { [string equal $element(mode) "edit"] && ($i == 1 || $i == 3) } {
+ append output "\n"
} else {
- append output "$value$trailing_zero"
+ append output "$value$trailing_zero"
}
incr i
}
- append output "\n"
+ append output "\n"
return $output
}