Index: openacs-4/packages/acs-templating/tcl/element-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/element-procs.tcl,v
diff -u -r1.28 -r1.29
--- openacs-4/packages/acs-templating/tcl/element-procs.tcl	25 Sep 2007 15:22:38 -0000	1.28
+++ openacs-4/packages/acs-templating/tcl/element-procs.tcl	2 Oct 2007 19:08:19 -0000	1.29
@@ -172,7 +172,7 @@
 
   # set the form section
   set opts(section) $form_properties(section)
-	if { ![string equal $opts(section) ""] } {
+	if { $opts(section) ne "" } {
 		set opts(sec_fieldset) $form_properties(sec_fieldset)
 		set opts(sec_legend) $form_properties(sec_legend)
 		set opts(sec_legendtext) $form_properties(sec_legendtext)
@@ -197,8 +197,8 @@
   }
 
   # If the widget is a checkbox or radio widget, set attributes
-    if { [string equal $opts(widget) radio] || \
-             [string equal $opts(widget) checkbox] } {
+    if { $opts(widget) eq "radio" || \
+             [string equal $opts(widget) "checkbox"] } {
 
         # If there's no legend text, no point to generate the fieldset
         if { ![info exists opts(legendtext)] } {
@@ -218,7 +218,7 @@
                 append fs_options " class=\"form-fieldset\""
             }
             foreach name [array names fs_attributes] {
-                if { [string equal $fs_attributes($name) {}] } {
+                if {$fs_attributes($name) eq {}} {
                     append fs_options " $name"
                 } else {
                     append fs_options " $name=\"$fs_attributes($name)\""
@@ -233,7 +233,7 @@
             array set lg_attributes $opts(legend)
             set lg_options ""
             foreach name [array names lg_attributes] {
-                if { [string equal $lg_attributes($name) {}] } {
+                if {$lg_attributes($name) eq {}} {
                     append lg_options " $name"
                 } else {
                     append lg_options " $name=\"$lg_attributes($name)\""