loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.27, 2002/03/21 20:24:21	version 1.30, 2002/03/28 22:15:56
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 (defined($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 (ref($ENV{$name})) {	if (ref($ENV{$name})) {
#already have multiple values	#already have multiple values
push(@{ $ENV{$name} },$value);	push(@{ $ENV{$name} },$value);