From: <ssc...@us...> - 2003-04-26 10:21:43
|
Update of /cvsroot/popfile/engine/UI In directory sc8-pr-cvs1:/tmp/cvs-serv11259 Modified Files: Tag: v0/18/1 HTML.pm Log Message: allow "+" to be submitted encoded in a form Index: HTML.pm =================================================================== RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v retrieving revision 1.98.2.5 retrieving revision 1.98.2.6 diff -C2 -d -r1.98.2.5 -r1.98.2.6 *** HTML.pm 10 Apr 2003 23:15:46 -0000 1.98.2.5 --- HTML.pm 26 Apr 2003 10:21:39 -0000 1.98.2.6 *************** *** 3145,3154 **** my $arg = $1; $self->{form}{$arg} = $2; # Expand %7E (hex) escapes in the form data $self->{form}{$arg} =~ s/%([0-9A-F][0-9A-F])/chr hex $1/gie; - - $self->{form}{$arg} =~ s/\+/ /g; # Push the value onto an array to allow for multiple values of the same name --- 3145,3155 ---- my $arg = $1; $self->{form}{$arg} = $2; + + + $self->{form}{$arg} =~ s/\+/ /g; # Expand %7E (hex) escapes in the form data $self->{form}{$arg} =~ s/%([0-9A-F][0-9A-F])/chr hex $1/gie; # Push the value onto an array to allow for multiple values of the same name |