loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.25, 2002/02/26 20:59:28	version 1.30, 2002/03/28 22:15:56
Line 359 sub get_student_answers {	Line 359 sub get_student_answers {

sub get_unprocessed_cgi {	sub get_unprocessed_cgi {
my ($query,$possible_names)= @_;	my ($query,$possible_names)= @_;
$Apache::lonxml::debug=1;	# $Apache::lonxml::debug=1;
foreach (split(/&/,$query)) {	foreach (split(/&/,$query)) {
my ($name, $value) = split(/=/,$_);	my ($name, $value) = split(/=/,$_);
$name = &Apache::lonnet::unescape($name);	$name = &Apache::lonnet::unescape($name);
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 (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 {