|
version 1.1486, 2022/06/08 01:42:20
|
version 1.1489, 2022/09/08 01:41:15
|
|
Line 4918 sub get_scantronformat_file {
|
Line 4918 sub get_scantronformat_file {
|
| close($fh); |
close($fh); |
| } |
} |
| } |
} |
| |
chomp(@lines); |
| } |
} |
| return @lines; |
return @lines; |
| } |
} |
|
Line 7933 sub usertools_access {
|
Line 7934 sub usertools_access {
|
| blog => 1, |
blog => 1, |
| webdav => 1, |
webdav => 1, |
| portfolio => 1, |
portfolio => 1, |
| |
timezone => 1, |
| ); |
); |
| } |
} |
| return if (!defined($tools{$tool})); |
return if (!defined($tools{$tool})); |
|
Line 13749 sub symbread {
|
Line 13751 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