--- loncom/interface/lonnavdisplay.pm 2023/01/20 23:04:26 1.22.4.10.2.2 +++ loncom/interface/lonnavdisplay.pm 2023/01/20 23:15:35 1.22.4.10.2.3 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Navigate Maps Display Handler # -# $Id: lonnavdisplay.pm,v 1.22.4.10.2.2 2023/01/20 23:04:26 raeburn Exp $ +# $Id: lonnavdisplay.pm,v 1.22.4.10.2.3 2023/01/20 23:15:35 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -77,10 +77,14 @@ sub real_handler { $r->send_http_header; $r->print(&Apache::loncommon::check_release_result(@reinit)); return OK; - } elsif ($result eq 'update') { - my $cid = $env{'request.course.id'}; - my $cnum = $env{'course.'.$cid.'.num'}; - my $cdom = $env{'course.'.$cid.'.domain'}; + } + my ($cid,$cnum,$cdom); + if ($result) { + $cid = $env{'request.course.id'}; + $cnum = $env{'course.'.$cid.'.num'}; + $cdom = $env{'course.'.$cid.'.domain'}; + } + if (($result eq 'main') || ($result eq 'both')) { &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; &startpage($r); @@ -110,6 +114,16 @@ ENDCLOSE return HTTP_NOT_ACCEPTABLE; } } + if (($result eq 'both') || ($result eq 'supp')) { + my $possdel; + if ($result eq 'supp') { + $possdel = 1; + } + my ($supplemental,$refs_updated) = &Apache::loncommon::get_supplemental($cnum,$cdom,'',$possdel); + unless ($refs_updated) { + &Apache::loncommon::set_supp_httprefs($cnum,$cdom,$supplemental,$possdel); + } + } # Create the nav map my $navmap = Apache::lonnavmaps::navmap->new(); @@ -341,14 +355,15 @@ sub startContentScreen { $r->print("\n".'