version 1.159.2.12, 2020/09/30 19:33:59
|
version 1.159.2.13, 2020/10/01 10:42:56
|
Line 617 sub handler {
|
Line 617 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; |