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.27, 2002/03/21 20:24:21
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 393 sub no_cache {	Line 393 sub no_cache {
sub add_to_env {	sub add_to_env {
my ($name,$value)=@_;	my ($name,$value)=@_;
if ($ENV{$name}) {	if ($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 {