Index: openacs-4/packages/acs-templating/tcl/richtext-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/richtext-procs.tcl,v diff -u -r1.7 -r1.8 --- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl 12 Sep 2003 09:47:19 -0000 1.7 +++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl 22 Sep 2003 14:53:37 -0000 1.8 @@ -174,9 +174,9 @@ if (document.selection) { document.write(''); document.write(''); - document.write(''); - document.write(''); - document.write(''); + document.write(''); + document.write(''); + document.write(''); document.write(''); document.write('
bolditaliclinkbolditaliclink
'); } 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 "" + append output "" # This is ugly, but it works: Only export the value when we're on a selected option append output "\[ad_decode \$checked \"checked\" \"\" \"\"\]" } @@ -323,11 +323,7 @@ set label [lindex $option 0] set value [lindex $option 1] - if {![string equal $label $value]} { - append output "