![[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.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 { |