[TWiki-Dev] CVS: twiki/lib/TWiki Form.pm,1.33,1.34

[Peter T. <pet...@us...>]

Update of /cvsroot/twiki/twiki/lib/TWiki
In directory sc8-pr-cvs1:/tmp/cvs-serv756

Modified Files:
	Form.pm 
Log Message:
Codev.TWikiFormWithLabelType feature

Index: Form.pm
===================================================================
RCS file: /cvsroot/twiki/twiki/lib/TWiki/Form.pm,v
retrieving revision 1.33
retrieving revision 1.34
diff -C2 -r1.33 -r1.34
*** Form.pm	27 Jan 2003 02:06:59 -0000	1.33
--- Form.pm	4 Mar 2003 05:22:42 -0000	1.34
***************
*** 255,258 ****
--- 255,265 ----
              $value =~ s/>/&gt\;/go;
              $value = "<input type=\"text\" name=\"$name\" size=\"$size\" value=\"$value\" />";
+         } elsif( $type eq "label" ) {
+             my $escaped = $value;
+             $escaped =~ s/"/&#34/go; # Make sure double quote don't kill us
+             $escaped =~ s/&/&amp\;/go;
+             $escaped =~ s/</&lt\;/go;
+             $escaped =~ s/>/&gt\;/go;
+             $value = "<input type=\"hidden\" name=\"$name\" value=\"$escaped\" />$value";
          } elsif( $type eq "textarea" ) {
              my $cols = 40;