Index: openacs-4/packages/acs-templating/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/widget-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	28 Aug 2003 09:41:45 -0000	1.21
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	22 Sep 2003 14:53:37 -0000	1.22
@@ -161,7 +161,7 @@
     switch $type {
       checkbox - radio {
         # There's a 'subst' done on the contents here
-        append output "<img src=\"/shared/images/${type}\$checked\" width=\"13\" height=\"13\">"
+        append output "<img src=\"/resources/acs-subsite/${type}\${checked}.gif\" width=\"13\" height=\"13\">"
         # This is ugly, but it works: Only export the value when we're on a selected option
         append output "\[ad_decode \$checked \"checked\" \"<input type=\\\"hidden\\\" name=\\\"$element(name)\\\" value=\\\"\$value\\\">\" \"\"\]"
       }
@@ -323,11 +323,7 @@
       set label [lindex $option 0]
       set value [lindex $option 1]
 
-      if {![string equal $label $value]} {
-        append output " <option value=\"[template::util::quote_html $value]\""
-      } else { 
-        append output " <option"
-      }
+      append output " <option value=\"[template::util::quote_html $value]\""
         
       if { [info exists values($value)] } {
         append output " selected=\"selected\""