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<input type=\"hidden\" name=\"$element(name).$i\" value=\"$format_property\" />"
-        } elseif { $element(mode) eq "edit" && ($i == 1 || $i == 3) } {
-            append output "<input type=\"text\" name=\"$element(name).$i\" maxlength=\"$format_property\" size=\"$format_property\" value=\"$value$trailing_zero\" />\n"
+            append output "$format_property<input type=\"hidden\" name=\"$element(name).$i\" value=\"$format_property\" >"
+        } elseif { [string equal $element(mode) "edit"] && ($i == 1 || $i == 3) } {
+            append output "<input type=\"text\" name=\"$element(name).$i\" maxlength=\"$format_property\" size=\"$format_property\" value=\"$value$trailing_zero\" >\n"
         } else {
-            append output "$value$trailing_zero<input type=\"hidden\" name=\"$element(name).$i\" maxlength=\"$format_property\" size=\"$format_property\" value=\"$value\" />"
+            append output "$value$trailing_zero<input type=\"hidden\" name=\"$element(name).$i\" maxlength=\"$format_property\" size=\"$format_property\" value=\"$value\" >"
         }
         incr i
     }
-    append output "<input type=\"hidden\" name=\"$element(name).format\" value=\"$element(format)\" />\n"
+    append output "<input type=\"hidden\" name=\"$element(name).format\" value=\"$element(format)\" >\n"
 
     return $output
 }