--- loncom/interface/lonnavdisplay.pm 2017/04/02 13:35:30 1.22.4.7 +++ loncom/interface/lonnavdisplay.pm 2014/05/20 20:30:59 1.27 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA -# Navigate Maps Display Handler + # -# $Id: lonnavdisplay.pm,v 1.22.4.7 2017/04/02 13:35:30 raeburn Exp $ +# $Id: lonnavdisplay.pm,v 1.27 2014/05/20 20:30:59 musolffc Exp $ # # Copyright Michigan State University Board of Trustees # @@ -38,7 +38,7 @@ use Apache::lonhtmlcommon(); use Apache::lonnet; use Apache::lonlocal; use Apache::londocs(); -use Apache::lonuserstate; +#use Time::HiRes qw( gettimeofday tv_interval ); sub handler { my $r = shift; @@ -47,14 +47,19 @@ sub handler { sub real_handler { my $r = shift; + #my $t0=[&gettimeofday()]; # Handle header-only request if ($r->header_only) { - &Apache::loncommon::content_type($r,'text/html'); + if ($env{'browser.mathml'}) { + &Apache::loncommon::content_type($r,'text/xml'); + } else { + &Apache::loncommon::content_type($r,'text/html'); + } $r->send_http_header; return OK; } - # Check for critical messages and redirect if present. + # Check for critical messages and redirect if present. my ($redirect,$url) = &Apache::loncommon::critical_redirect(300); if ($redirect) { &Apache::loncommon::content_type($r,'text/html'); @@ -62,26 +67,17 @@ sub real_handler { return REDIRECT; } - # Check if course needs to be re-initialized - my $loncaparev = $r->dir_config('lonVersion'); - my ($result,@reinit) = &Apache::loncommon::needs_coursereinit($loncaparev); - if ($result eq 'switch') { + + # Send header, don't cache this page + if ($env{'browser.mathml'}) { + &Apache::loncommon::content_type($r,'text/xml'); + } else { &Apache::loncommon::content_type($r,'text/html'); - $r->send_http_header; - $r->print(&Apache::loncommon::check_release_result(@reinit)); - return OK; - } elsif ($result eq 'update') { - my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; - my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; - my ($furl,$ferr) = &Apache::lonuserstate::readmap("$cdom/$cnum"); - if ($ferr) { - my $requrl = $r->uri; - $env{'user.error.msg'}="$requrl:bre:0:0:Course not initialized"; - $env{'user.reinit'} = 1; - return HTTP_NOT_ACCEPTABLE; - } } + &Apache::loncommon::no_cache($r); + + my %toplinkitems=(); # Create the nav map my $navmap = Apache::lonnavmaps::navmap->new(); @@ -92,9 +88,6 @@ sub real_handler { $env{'user.reinit'} = 1; return HTTP_NOT_ACCEPTABLE; } - - # Send header, don't cache this page - &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; # ------------------------------------------------------------ Get query string @@ -117,7 +110,11 @@ sub real_handler { $start_page = &Apache::loncommon::start_page($title,undef,$args); } $r->print($start_page. - ''); + ''); &startContentScreen($r,'navmaps'); $r->rflush(); @@ -130,7 +127,6 @@ sub real_handler { return OK; } - my %toplinkitems=(); my @resources = $navmap->retrieveResources(); my $sequenceCount = 0; my $problemCount = 0; @@ -297,6 +293,8 @@ sub real_handler { $r->print("

".&mt("This course is empty.")."

"); } } + #my $td=&tv_interval($t0); + #$r->print("
$td"); &endContentScreen($r); $r->print(&Apache::loncommon::end_page()); $r->rflush(); @@ -320,6 +318,7 @@ sub startContentScreen { $r->print('
  • '.&mt('Supplemental Content').'
  • '); } $r->print('     '.&mt('Content Search').'     '."\n"); + $r->print('      '.&mt('Content Index').'      '."\n"); $r->print("\n".''."\n"); $r->print('
    '); }