|
version 1.1486, 2022/06/08 01:42:20
|
version 1.1487, 2022/06/08 20:49:09
|
|
Line 13749 sub symbread {
|
Line 13749 sub symbread {
|
| my %bighash; |
my %bighash; |
| my $syval=''; |
my $syval=''; |
| if (($env{'request.course.fn'}) && ($thisfn)) { |
if (($env{'request.course.fn'}) && ($thisfn)) { |
| my $targetfn = $thisfn; |
|
| if ($targetfn =~ m|^adm/wrapper/(ext/.*)|) { |
|
| $targetfn=$1; |
|
| } |
|
| unless ($ignoresymbdb) { |
unless ($ignoresymbdb) { |
| 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{$targetfn}; |
$syval=$hash{$thisfn}; |
| untie(%hash); |
untie(%hash); |
| } |
} |
| if ($syval && $checkforblock) { |
if ($syval && $checkforblock) { |
![[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