--- loncom/interface/lonindexcourse.pm 2024/02/12 03:46:17 1.3 +++ loncom/interface/lonindexcourse.pm 2024/02/12 04:04:06 1.4 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Index Course # -# $Id: lonindexcourse.pm,v 1.3 2024/02/12 03:46:17 raeburn Exp $ +# $Id: lonindexcourse.pm,v 1.4 2024/02/12 04:04:06 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -74,8 +74,14 @@ sub course_index { last if ($c->aborted()); if ($key =~ /^src\_(.+)$/) { my $rid = $1; - if ($hash{'randomout_'.$rid} & !$env{'request.role.adv'}) { - next; + unless ($env{'request.role.adv'}) { + 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 %newwords=&checkonthis($r,$rid,$hash{$key},0,&Apache::lonnet::gettitle($symb),