|
version 1.1172.2.149, 2024/07/02 21:40:21
|
version 1.1172.2.150, 2024/07/03 19:07:47
|
|
Line 4551 sub get_scantronformat_file {
|
Line 4551 sub get_scantronformat_file {
|
| close($fh); |
close($fh); |
| } |
} |
| } |
} |
| |
chomp(@lines); |
| } |
} |
| return @lines; |
return @lines; |
| } |
} |
|
Line 12724 sub symbread {
|
Line 12725 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