loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.25, 2001/12/15 20:40:23	version 1.27, 2002/02/25 21:22:51
Line 33	Line 33
# YEAR=2001	# YEAR=2001
# 01/06/01,05/28,8/11,9/26,11/29 Gerd Kortemeyer	# 01/06/01,05/28,8/11,9/26,11/29 Gerd Kortemeyer
# 12/15 Scott Harrison	# 12/15 Scott Harrison
	# YEAR=2002
	# 1/4,2/25 Gerd Kortemeyer
#	#
###	###

Line 98 sub handler {	Line 100 sub handler {
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$name =~ tr/+/ /;	$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;	$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$ENV{"form.$name"}=$value;	if ($ENV{"form.$name"}) {
	$ENV{"form.$name"}.=','.$value;
	} else {
	$ENV{"form.$name"}=$value;
	}
}	}
} else {	} else {
my $contentsep=$1;	my $contentsep=$1;
Line 146 sub handler {	Line 152 sub handler {
}	}
}	}
}	}
	$ENV{'request.method'}=$ENV{'REQUEST_METHOD'};
$r->method_number(M_GET);	$r->method_number(M_GET);
$r->method('GET');	$r->method('GET');
$r->headers_in->unset('Content-length');	$r->headers_in->unset('Content-length');