--- loncom/interface/lonnavdisplay.pm 2023/07/25 04:58:49 1.42 +++ loncom/interface/lonnavdisplay.pm 2025/05/27 23:35:38 1.48 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Navigate Maps Display Handler # -# $Id: lonnavdisplay.pm,v 1.42 2023/07/25 04:58:49 raeburn Exp $ +# $Id: lonnavdisplay.pm,v 1.48 2025/05/27 23:35:38 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -40,6 +40,7 @@ use Apache::lonlocal; use Apache::londocs(); use Apache::lonuserstate; use LONCAPA::ltiutils; +use LONCAPA; sub handler { my $r = shift; @@ -129,7 +130,7 @@ ENDCLOSE my $course_type = &Apache::loncommon::course_type(); if (($course_type eq 'Placement') && (!$env{'request.role.adv'})) { my $furl = &Apache::lonpageflip::first_accessible_resource(); - if ($result eq 'update') { + if (($result eq 'main') || ($result eq 'both')) { &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); $r->print($closure.&Apache::loncommon::end_page()); return OK; @@ -160,7 +161,7 @@ ENDCLOSE my $navmap = Apache::lonnavmaps::navmap->new(); if (!defined($navmap)) { - if ($result eq 'update') { + if (($result eq 'main') || ($result eq 'both')) { &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); $r->print($closure.&Apache::loncommon::end_page()); } @@ -170,7 +171,7 @@ ENDCLOSE return HTTP_NOT_ACCEPTABLE; } - if ($result eq 'update') { + if (($result eq 'main') || ($result eq 'both')) { $r->rflush(); &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state); $r->print($closure); @@ -183,7 +184,7 @@ ENDCLOSE } &startContentScreen($r,'navmaps',$course_type); - unless ($result eq 'update') { + unless (($result eq 'main') || ($result eq 'both')) { $r->rflush(); } @@ -317,13 +318,14 @@ ENDCLOSE '
'); } @@ -347,11 +349,88 @@ ENDCLOSE # If no resources were printed, print a reassuring message so the # user knows there was no error. if ($renderArgs->{'counter'} == 0) { + my $noresmsg; if ($showOnlyHomework) { - $r->print("".&mt("All homework is currently completed.")."
"); + $noresmsg = &mt('All homework is currently completed.'); } else { # both jumpToFirstHomework and normal use the same: course must be empty - $r->print("".&mt("This course is empty.")."
"); + $noresmsg = &mt('This course is empty.'); + if (($renderArgs->{'deeplinknolist'}) && + ($env{'request.course.deeponlyprot'})) { + my ($linkprot,$currmatch,$othermatches,@names); + if ($env{'request.linkprot'}) { + ($linkprot) = split(/:/,$env{'request.linkprot'}); + } + foreach my $launcher (split(/&/,$env{'request.course.deeponlyprot'})) { + my ($name,$itemnums) = split(/:/,$launcher); + my @nums = split(/,/,$itemnums); + if (($linkprot) && + (grep(/^\Q$linkprot\E$/,@nums))) { + $currmatch = &LONCAPA::unescape($name); + if (@nums > 1) { + $othermatches = 1; + } + } else { + push(@names,&LONCAPA::unescape($name)); + } + } + my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; + my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; + my $has_supp = &Apache::lonnet::has_unhidden_suppfiles($cnum,$cdom); + if ($linkprot) { + if ($currmatch) { + if ($has_supp) { + $noresmsg = &mt('No main content available when accessed using the link you followed from [_1].', + $currmatch); + } else { + $noresmsg = &mt('No content available when accessed using the link you followed from [_1].', + $currmatch); + } + if ($othermatches) { + $noresmsg = ''.$noresmsg.'
'); } &endContentScreen($r); $r->print(&Apache::loncommon::end_page()); @@ -371,8 +450,7 @@ sub startpage { no_mt => 1}, ]; my $args = {'bread_crumbs' => $brcrum}; - my $start_page = &Apache::loncommon::start_page($title,undef,$args); - $r->print($start_page. + $r->print(&Apache::loncommon::start_page($title,undef,$args). '