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.259, 2005/04/07 08:15:41
Line 3135 sub add_to_env {	Line 3135 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;
}	}
}	}