|
version 1.1172.2.146.2.6, 2022/09/19 20:51:17
|
version 1.1172.2.146.2.7, 2022/09/19 21:11:55
|
|
Line 13128 sub symbread {
|
Line 13128 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 ( ($thisfn =~ m/^(uploaded|editupload)\//) && ($thisfn !~ m/\.(page|sequence)$/) ) { |
|
| $targetfn = 'adm/wrapper/'.$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