Return to loncommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.26, 2002/03/06 20:24:44 | version 1.27, 2002/03/21 20:24:21 |
---|---|
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 { |