version 1.37, 2017/09/29 19:18:10
|
version 1.39, 2020/02/03 19:02:18
|
Line 358 sub handler {
|
Line 358 sub handler {
|
$filename =~ s/\~//g; |
$filename =~ s/\~//g; |
$filename =~ s/\/+/\//g; |
$filename =~ s/\/+/\//g; |
if (($env{'request.course.id'}) && (&Apache::lonnet::is_on_map($filename))) { |
if (($env{'request.course.id'}) && (&Apache::lonnet::is_on_map($filename))) { |
if ((&Apache::lonnet::metadata(&Apache::lonenc::check_decrypt($filename)) eq 'open') && |
if ((&Apache::lonnet::metadata(&Apache::lonenc::check_decrypt($filename),'sourceavail') eq 'open') && |
(&Apache::lonnet::allowed('cre','/'))) { |
(&Apache::lonnet::allowed('cre','/'))) { |
$canview = 1; |
$canview = 1; |
} elsif (&Apache::lonnet::allowed('vxc',$env{'request.course.id'})) { |
} elsif (&Apache::lonnet::allowed('vxc',$env{'request.course.id'})) { |
Line 366 sub handler {
|
Line 366 sub handler {
|
&Apache::lonenc::check_decrypt(\$filename); |
&Apache::lonenc::check_decrypt(\$filename); |
if (($env{'request.role.domain'} eq $cdom) && ($filename =~ /$LONCAPA::assess_re/)) { |
if (($env{'request.role.domain'} eq $cdom) && ($filename =~ /$LONCAPA::assess_re/)) { |
my ($auname) = ($filename =~ m{^\Q/res/$cdom/\E($match_username)/}); |
my ($auname) = ($filename =~ m{^\Q/res/$cdom/\E($match_username)/}); |
if (($env{'request.course.adhocsrcaccess'} ne '') && |
if (($auname ne '') && ($env{'request.course.adhocsrcaccess'} ne '') && |
(grep(/^\Q$auname\E$/,split(/,/,$env{'request.course.adhocsrcaccess'})))) { |
(grep(/^\Q$auname\E$/,split(/,/,$env{'request.course.adhocsrcaccess'})))) { |
$canview = 1; |
$canview = 1; |
|
} elsif ((&Apache::lonnet::metadata($filename,'sourceavail') eq 'open') && |
|
($filename =~ m{^\Q/res/$cdom/}) && |
|
(&Apache::lonnet::allowed('bre','/'))) { |
|
$canview = 1; |
} |
} |
} |
} |
} |
} |