version 1.159.2.8.2.4, 2020/09/30 20:03:12
|
version 1.159.2.8.2.5, 2020/10/01 12:43:10
|
Line 635 sub handler {
|
Line 635 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; |