loncom/interface/lonfeedback.pm - diff

Return to lonfeedback.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.24, 2002/03/02 03:50:27	version 1.25, 2002/03/26 16:15:34
Line 367 sub handler {	Line 367 sub handler {
my ($name, $value) = split(/=/,$_);	my ($name, $value) = split(/=/,$_);
$value =~ tr/+/ /;	$value =~ tr/+/ /;
$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;
if (($name eq 'hide') \|\| ($name eq 'unhide')) {	if (($name eq 'hide') \|\| ($name eq 'unhide') \|\| ($name eq 'postdata')) {
unless ($ENV{'form.'.$name}) {	unless ($ENV{'form.'.$name}) {
$ENV{'form.'.$name}=$value;	$ENV{'form.'.$name}=$value;
}	}