![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl|
Return to lonnet.pm CVS log | Up to [LON-CAPA] / loncom / lonnet / perl |
| version 1.634, 2005/05/05 20:55:04 | version 1.635, 2005/05/06 06:45:01 |
|---|---|
| Line 258 sub critical { | Line 258 sub critical { |
| sub transfer_profile_to_env { | sub transfer_profile_to_env { |
| my ($lonidsdir,$handle)=@_; | my ($lonidsdir,$handle)=@_; |
| undef(%env); | |
| my @profile; | my @profile; |
| { | { |
| open(my $idf,"$lonidsdir/$handle.id"); | open(my $idf,"$lonidsdir/$handle.id"); |