![[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.44, 2000/10/11 21:12:32 | version 1.45, 2000/10/12 02:11:16 |
|---|---|
| Line 1037 sub symbread { | Line 1037 sub symbread { |
| my %hash; | my %hash; |
| my %bighash; | my %bighash; |
| my $syval=''; | my $syval=''; |
| if (($ENV{'request.course.fn'}) && ($ENV{'request.filename'})) { | if (($ENV{'request.course.fn'}) && ($thisfn)) { |
| if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db', | if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db', |
| &GDBM_READER,0640)) { | &GDBM_READER,0640)) { |
| $syval=$hash{$thisfn}; | $syval=$hash{$thisfn}; |