version 1.3, 2024/02/12 03:46:17
|
version 1.4, 2024/02/12 04:04:06
|
Line 74 sub course_index {
|
Line 74 sub course_index {
|
last if ($c->aborted()); |
last if ($c->aborted()); |
if ($key =~ /^src\_(.+)$/) { |
if ($key =~ /^src\_(.+)$/) { |
my $rid = $1; |
my $rid = $1; |
if ($hash{'randomout_'.$rid} & !$env{'request.role.adv'}) { |
unless ($env{'request.role.adv'}) { |
next; |
next if ($hash{'randomout_'.$rid} || $hash{'deeplinkout_'.$rid}); |
|
if (!$env{'request.deeplink.login'} && $hash{'deeplinkonly_'.$rid}) { |
|
my ($value) = map { &unescape($_); } split(/:/,$hash{'deeplinkonly_'.$rid}); |
|
my ($state,$others,$listed) = split(/,/,$value); |
|
next if (($state eq 'only') && |
|
(($listed eq 'absent') || ($listed eq 'grades'))); |
|
} |
} |
} |
my $symb=&make_symb($rid); |
my $symb=&make_symb($rid); |
my %newwords=&checkonthis($r,$rid,$hash{$key},0,&Apache::lonnet::gettitle($symb), |
my %newwords=&checkonthis($r,$rid,$hash{$key},0,&Apache::lonnet::gettitle($symb), |