version 1.25, 2001/12/15 20:40:23
|
version 1.28, 2002/02/26 21:01:33
|
Line 33
|
Line 33
|
# YEAR=2001 |
# YEAR=2001 |
# 01/06/01,05/28,8/11,9/26,11/29 Gerd Kortemeyer |
# 01/06/01,05/28,8/11,9/26,11/29 Gerd Kortemeyer |
# 12/15 Scott Harrison |
# 12/15 Scott Harrison |
|
# YEAR=2002 |
|
# 1/4,2/25 Gerd Kortemeyer |
# |
# |
### |
### |
|
|
Line 98 sub handler {
|
Line 100 sub handler {
|
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
$name =~ tr/+/ /; |
$name =~ tr/+/ /; |
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
$ENV{"form.$name"}=$value; |
&Apache::loncommon::add_to_env("form.$name",$value); |
} |
} |
} else { |
} else { |
my $contentsep=$1; |
my $contentsep=$1; |
Line 118 sub handler {
|
Line 120 sub handler {
|
} else { |
} else { |
$value=~s/\s+$//s; |
$value=~s/\s+$//s; |
} |
} |
$ENV{"form.$name"}=$value; |
&Apache::loncommon::add_to_env("form.$name",$value); |
} |
} |
if ($i<$#lines) { |
if ($i<$#lines) { |
$i++; |
$i++; |
Line 146 sub handler {
|
Line 148 sub handler {
|
} |
} |
} |
} |
} |
} |
|
$ENV{'request.method'}=$ENV{'REQUEST_METHOD'}; |
$r->method_number(M_GET); |
$r->method_number(M_GET); |
$r->method('GET'); |
$r->method('GET'); |
$r->headers_in->unset('Content-length'); |
$r->headers_in->unset('Content-length'); |