version 1.498, 2019/08/06 15:54:37
|
version 1.501, 2020/02/17 23:04:18
|
Line 449 sub secondary_menu {
|
Line 449 sub secondary_menu {
|
} |
} |
} |
} |
if ($env{'request.course.groups'} ne '') { |
if ($env{'request.course.groups'} ne '') { |
foreach my $group (split(/:/,$env{'request.course.groups'}) { |
foreach my $group (split(/:/,$env{'request.course.groups'})) { |
next unless ($group =~ /^\w+$/); |
next unless ($group =~ /^\w+$/); |
my @privs = split(/:/,$env{"user.priv.$env{'request.role'}./$cdom/$cnum/$group"}); |
my @privs = split(/:/,$env{"user.priv.$env{'request.role'}./$cdom/$cnum/$group"}); |
shift(@privs); |
shift(@privs); |
Line 1365 sub prepare_functions {
|
Line 1365 sub prepare_functions {
|
if ((($cfile eq '') || (!$editbutton)) && |
if ((($cfile eq '') || (!$editbutton)) && |
($resurl =~ /$LONCAPA::assess_re/)) { |
($resurl =~ /$LONCAPA::assess_re/)) { |
my $showurl = &Apache::lonnet::clutter($resurl); |
my $showurl = &Apache::lonnet::clutter($resurl); |
|
my $crs_sec = $env{'request.course.id'} . (($env{'request.course.sec'} ne '') |
|
? "/$env{'request.course.sec'}" |
|
: ''); |
if ((&Apache::lonnet::allowed('cre','/')) && |
if ((&Apache::lonnet::allowed('cre','/')) && |
(&Apache::lonnet::metadata($resurl,'sourceavail') eq 'open')) { |
(&Apache::lonnet::metadata($resurl,'sourceavail') eq 'open')) { |
$viewsrcbutton = 1; |
$viewsrcbutton = 1; |
} elsif (&Apache::lonnet::allowed('vxc',$env{'request.course.id'})) { |
} elsif (&Apache::lonnet::allowed('vxc',$crs_sec)) { |
if ($showurl =~ m{^\Q/res/$cdom/\E($match_username)/}) { |
if ($showurl =~ m{^\Q/res/$cdom/\E($match_username)/}) { |
my $auname = $1; |
my $auname = $1; |
if (($env{'request.course.adhocsrcaccess'} ne '') && |
if (($env{'request.course.adhocsrcaccess'} ne '') && |
(grep(/^\Q$auname\E$/,split(/,/,$env{'request.course.adhocsrcaccess'})))) { |
(grep(/^\Q$auname\E$/,split(/,/,$env{'request.course.adhocsrcaccess'})))) { |
$viewsrcbutton = 1; |
$viewsrcbutton = 1; |
} elsif ((&Apache::lonnet::metadata($resurl,'sourceavail') eq 'open') && |
} elsif ((&Apache::lonnet::metadata($resurl,'sourceavail') eq 'open') && |
(&Apache::lonnet::allowed('bre','/'))) { |
(&Apache::lonnet::allowed('bre',$crs_sec))) { |
$viewsrcbutton = 1; |
$viewsrcbutton = 1; |
} |
} |
} |
} |
Line 1910 sub done_button_js {
|
Line 1913 sub done_button_js {
|
my @resources=(); |
my @resources=(); |
if ($type eq 'map') { |
if ($type eq 'map') { |
my ($mapurl,$rid,$resurl)=&Apache::lonnet::decode_symb($env{'request.symb'}); |
my ($mapurl,$rid,$resurl)=&Apache::lonnet::decode_symb($env{'request.symb'}); |
@resources=$navmap->retrieveResources($mapurl,sub { $_[0]->is_problem() }); |
if ($env{'request.symb'} =~ /\.page$/) { |
|
@resources=$navmap->retrieveResources($resurl,sub { $_[0]->is_problem() }); |
|
} else { |
|
@resources=$navmap->retrieveResources($mapurl,sub { $_[0]->is_problem() }); |
|
} |
} else { |
} else { |
my $res = $navmap->getBySymb($env{'request.symb'}); |
my $res = $navmap->getBySymb($env{'request.symb'}); |
if (ref($res)) { |
if (ref($res)) { |