loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

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;