|
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
|