--- loncom/interface/lonnavdisplay.pm 2015/03/11 15:43:40 1.22.4.6 +++ loncom/interface/lonnavdisplay.pm 2013/08/07 00:03:25 1.23 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA -# Navigate Maps Display Handler +# Navigate Maps Handler # -# $Id: lonnavdisplay.pm,v 1.22.4.6 2015/03/11 15:43:40 raeburn Exp $ +# $Id: lonnavdisplay.pm,v 1.23 2013/08/07 00:03:25 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -30,7 +30,7 @@ package Apache::lonnavdisplay; use strict; -use Apache::Constants qw(:common :http REDIRECT); +use Apache::Constants qw(:common :http); use Apache::lonmenu(); use Apache::loncommon(); use Apache::lonnavmaps(); @@ -38,6 +38,7 @@ use Apache::lonhtmlcommon(); use Apache::lonnet; use Apache::lonlocal; use Apache::londocs(); +use Time::HiRes qw( gettimeofday tv_interval ); sub handler { my $r = shift; @@ -46,41 +47,27 @@ 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. - my ($redirect,$url) = &Apache::loncommon::critical_redirect(300); - if ($redirect) { + # 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->header_out(Location => $url); - return REDIRECT; } + &Apache::loncommon::no_cache($r); - # 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') { - &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; - } - } + my %toplinkitems=(); # Create the nav map my $navmap = Apache::lonnavmaps::navmap->new(); @@ -91,9 +78,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 @@ -129,7 +113,6 @@ sub real_handler { return OK; } - my %toplinkitems=(); my @resources = $navmap->retrieveResources(); my $sequenceCount = 0; my $problemCount = 0; @@ -263,7 +246,7 @@ sub real_handler { @@ -296,6 +279,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(); @@ -312,13 +297,14 @@ sub startContentScreen { my ($suppcount,$errors); unless ($allowed) { my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; - my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; + my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; ($suppcount,$errors) = &Apache::lonnet::get_numsuppfiles($cnum,$cdom); } - if ($allowed || $suppcount) { + if ($allowed || $suppcount) { $r->print('
  • '.&mt('Supplemental Content').'
  • '); } $r->print('     '.&mt('Content Search').'     '."\n"); + $r->print('      '.&mt('Content Index').'      '."\n"); $r->print("\n".''."\n"); $r->print('
    '); }