![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
Return to loncommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.27, 2002/03/21 20:24:21 | version 1.28, 2002/03/23 14:54:16 |
|---|---|
| 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 (ref($ENV{$name})) { | if (ref($ENV{$name})) { |
| #already have multiple values | #already have multiple values |
| push(@{ $ENV{$name} },$value); | push(@{ $ENV{$name} },$value); |