version 1.75, 2016/11/22 13:51:29
|
version 1.76, 2017/05/30 15:10:57
|
Line 205 sub handler {
|
Line 205 sub handler {
|
|
|
# permissions checking |
# permissions checking |
my ($allowed,$canedit,$context,$cid); |
my ($allowed,$canedit,$context,$cid); |
if ($env{'form.readfile'} =~ m{^/uploaded/($match_domain)/($match_courseid)/}) { |
if ($env{'form.readfile'} eq '') { |
|
$allowed = 1; |
|
} elsif ($env{'form.readfile'} =~ m{^/uploaded/($match_domain)/($match_courseid)/}) { |
my ($cdom,$cnum) = ($1,$2); |
my ($cdom,$cnum) = ($1,$2); |
$cid = $cdom.'_'.$cnum; |
$cid = $cdom.'_'.$cnum; |
$context = 'course'; |
$context = 'course'; |
Line 219 sub handler {
|
Line 221 sub handler {
|
(&Apache::lonnet::allowed('bro',$env{'form.readfile'}))) { |
(&Apache::lonnet::allowed('bro',$env{'form.readfile'}))) { |
$allowed = 1; |
$allowed = 1; |
} |
} |
} elsif (($env{'form.readfile'} eq '') && ($env{'form.acts'} ne '')) { |
|
$allowed = 1; |
|
} |
} |
if ($allowed) { |
if ($allowed) { |
if ($env{'form.mode'} eq 'rat') { |
if ($env{'form.mode'} eq 'rat') { |