loncom/interface/loncommon.pm - diff

Return to loncommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.258, 2005/04/07 06:56:22	version 1.260, 2005/04/22 20:50:07
Line 2975 sub get_posted_cgi {	Line 2975 sub get_posted_cgi {
my $r=shift;	my $r=shift;

my $buffer;	my $buffer;
	if ($r->header_in('Content-length')) {
$r->read($buffer,$r->header_in('Content-length'),0);	$r->read($buffer,$r->header_in('Content-length'),0);
	}
unless ($buffer=~/^(\-+\w+)\s+Content\-Disposition\:\s*form\-data/si) {	unless ($buffer=~/^(\-+\w+)\s+Content\-Disposition\:\s*form\-data/si) {
my @pairs=split(/&/,$buffer);	my @pairs=split(/&/,$buffer);
my $pair;	my $pair;
Line 3135 sub add_to_env {	Line 3136 sub add_to_env {
if (ref($env{$name})) {	if (ref($env{$name})) {
#already have multiple values	#already have multiple values
push(@{ $env{$name} },$value);	push(@{ $env{$name} },$value);
push(@{ $ENV{$name} },$value);
} else {	} else {
#first time seeing multiple values, convert hash entry to an arrayref	#first time seeing multiple values, convert hash entry to an arrayref
my $first=$env{$name};	my $first=$env{$name};
undef($env{$name});	undef($env{$name});
undef($ENV{$name});
push(@{ $env{$name} },$first,$value);	push(@{ $env{$name} },$first,$value);
push(@{ $ENV{$name} },$first,$value);
}	}
} else {	} else {
$env{$name}=$value;	$env{$name}=$value;
$ENV{$name}=$value;
}	}
}	}