loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

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;