loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.26, 2002/03/06 20:24:44	version 1.29, 2002/03/28 21:38:53
Line 367 sub get_unprocessed_cgi {	Line 367 sub get_unprocessed_cgi {
$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;
&Apache::lonxml::debug("Seting :$name: to :$value:");	&Apache::lonxml::debug("Seting :$name: to :$value:");
&add_to_env('form.'.$name,$value);	unless ($ENV{'form.'.$name}) { &add_to_env('form.'.$name,$value) };
}	}
}	}
}	}
Line 392 sub no_cache {	Line 392 sub no_cache {

sub add_to_env {	sub add_to_env {
my ($name,$value)=@_;	my ($name,$value)=@_;
if ($ENV{$name}) {	if (defined($ENV{$name})) {
if (defined(@{ $ENV{$name} })) {	if (ref($ENV{$name})) {
#already have multiple values	#already have multiple values
push(@{ $ENV{$name} },$value);	push(@{ $ENV{$name} },$value);
} else {	} else {