version 1.25, 2014/02/28 19:20:06
|
version 1.31, 2015/03/01 22:20:56
|
Line 1
|
Line 1
|
# The LearningOnline Network with CAPA |
# The LearningOnline Network with CAPA |
# Navigate Maps Handler |
# Navigate Maps Display Handler |
# |
# |
# $Id$ |
# $Id$ |
# |
# |
Line 30
|
Line 30
|
package Apache::lonnavdisplay; |
package Apache::lonnavdisplay; |
|
|
use strict; |
use strict; |
use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::lonmenu(); |
use Apache::lonmenu(); |
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonnavmaps(); |
use Apache::lonnavmaps(); |
Line 38 use Apache::lonhtmlcommon();
|
Line 38 use Apache::lonhtmlcommon();
|
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::londocs(); |
use Apache::londocs(); |
use Time::HiRes qw( gettimeofday tv_interval ); |
|
|
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
Line 47 sub handler {
|
Line 46 sub handler {
|
|
|
sub real_handler { |
sub real_handler { |
my $r = shift; |
my $r = shift; |
#my $t0=[&gettimeofday()]; |
|
# Handle header-only request |
# Handle header-only request |
if ($r->header_only) { |
if ($r->header_only) { |
if ($env{'browser.mathml'}) { |
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/xml'); |
|
} else { |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
} |
|
$r->send_http_header; |
$r->send_http_header; |
return OK; |
return OK; |
} |
} |
|
|
# Send header, don't cache this page |
# Check for critical messages and redirect if present. |
if ($env{'browser.mathml'}) { |
my ($redirect,$url) = &Apache::loncommon::critical_redirect(300); |
&Apache::loncommon::content_type($r,'text/xml'); |
if ($redirect) { |
} else { |
|
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->header_out(Location => $url); |
|
return REDIRECT; |
} |
} |
&Apache::loncommon::no_cache($r); |
|
|
|
my %toplinkitems=(); |
# 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; |
|
} |
|
} |
|
|
# Create the nav map |
# Create the nav map |
my $navmap = Apache::lonnavmaps::navmap->new(); |
my $navmap = Apache::lonnavmaps::navmap->new(); |
Line 78 sub real_handler {
|
Line 91 sub real_handler {
|
$env{'user.reinit'} = 1; |
$env{'user.reinit'} = 1; |
return HTTP_NOT_ACCEPTABLE; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |
|
|
|
# Send header, don't cache this page |
|
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
|
|
# ------------------------------------------------------------ Get query string |
# ------------------------------------------------------------ Get query string |
Line 100 sub real_handler {
|
Line 116 sub real_handler {
|
$start_page = &Apache::loncommon::start_page($title,undef,$args); |
$start_page = &Apache::loncommon::start_page($title,undef,$args); |
} |
} |
$r->print($start_page. |
$r->print($start_page. |
'<script type="text/javascript">window.focus();</script>'); |
'<script type="text/javascript">'."\n". |
|
'// <![CDATA['."\n". |
|
'window.focus();'."\n". |
|
'// ]]>'."\n". |
|
'</script>'); |
&startContentScreen($r,'navmaps'); |
&startContentScreen($r,'navmaps'); |
$r->rflush(); |
$r->rflush(); |
|
|
Line 113 sub real_handler {
|
Line 133 sub real_handler {
|
return OK; |
return OK; |
} |
} |
|
|
|
my %toplinkitems=(); |
my @resources = $navmap->retrieveResources(); |
my @resources = $navmap->retrieveResources(); |
my $sequenceCount = 0; |
my $sequenceCount = 0; |
my $problemCount = 0; |
my $problemCount = 0; |
Line 279 sub real_handler {
|
Line 300 sub real_handler {
|
$r->print("<p><span class=\"LC_info\">".&mt("This course is empty.")."</span></p>"); |
$r->print("<p><span class=\"LC_info\">".&mt("This course is empty.")."</span></p>"); |
} |
} |
} |
} |
#my $td=&tv_interval($t0); |
|
#$r->print("<br />$td"); |
|
&endContentScreen($r); |
&endContentScreen($r); |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
$r->rflush(); |
$r->rflush(); |