loncom/auth/lonacc.pm - diff

Return to lonacc.pm CVS log

Up to [LON-CAPA] / loncom / auth

version 1.26, 2002/01/04 14:57:14	version 1.28, 2002/02/26 21:01:33
Line 34	Line 34
# 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	# YEAR=2002
# 1/4 Gerd Kortemeyer	# 1/4,2/25 Gerd Kortemeyer
#	#
###	###

Line 100 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;	&Apache::loncommon::add_to_env("form.$name",$value);
}	}
} else {	} else {
my $contentsep=$1;	my $contentsep=$1;
Line 120 sub handler {	Line 120 sub handler {
} else {	} else {
$value=~s/\s+$//s;	$value=~s/\s+$//s;
}	}
$ENV{"form.$name"}=$value;	&Apache::loncommon::add_to_env("form.$name",$value);
}	}
if ($i<$#lines) {	if ($i<$#lines) {
$i++;	$i++;