version 1.180, 2020/09/30 19:25:16
|
version 1.181, 2020/10/01 10:16:33
|
Line 644 sub handler {
|
Line 644 sub handler {
|
my $query = $r->args; |
my $query = $r->args; |
foreach my $pair (split(/&/,$query)) { |
foreach my $pair (split(/&/,$query)) { |
my ($name, $value) = split(/=/,$pair); |
my ($name, $value) = split(/=/,$pair); |
|
$name = &unescape($name); |
|
$value =~ tr/+/ /; |
|
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg; |
if ($name eq 'symb') { |
if ($name eq 'symb') { |
$poss_symb = &Apache::lonnet::symbclean($value); |
$poss_symb = &Apache::lonnet::symbclean($value); |
last; |
last; |