--- loncom/interface/lonnavdisplay.pm 2010/08/14 21:42:59 1.13.4.3
+++ loncom/interface/lonnavdisplay.pm 2010/12/07 01:15:39 1.19
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Navigate Maps Handler
#
-# $Id: lonnavdisplay.pm,v 1.13.4.3 2010/08/14 21:42:59 raeburn Exp $
+# $Id: lonnavdisplay.pm,v 1.19 2010/12/07 01:15:39 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -37,6 +37,7 @@ use Apache::lonnavmaps();
use Apache::lonhtmlcommon();
use Apache::lonnet;
use Apache::lonlocal;
+use Apache::londocs();
use Time::HiRes qw( gettimeofday tv_interval );
sub handler {
@@ -67,65 +68,6 @@ sub real_handler {
&Apache::loncommon::no_cache($r);
my %toplinkitems=();
- &Apache::lonnavmaps::add_linkitem(\%toplinkitems,'blank','',
- "Select Action");
- if ($ENV{QUERY_STRING} eq 'collapseExternal') {
- &Apache::lonnet::put('environment',{'remotenavmap' => 'off'});
- &Apache::lonnet::appenv({'environment.remotenavmap' => 'off'});
- my $menu=&Apache::lonmenu::reopenmenu();
- my $navstatus=&Apache::lonmenu::get_nav_status();
- if ($menu) {
- $menu=(<<MENU)
- swmenu=$menu
- swmenu.clearTimeout(swmenu.menucltim);
- $navstatus
-MENU
- } else {
- my $nothing = &Apache::lonhtmlcommon::javascript_nothing();
- my $mainwindow='window.open('.$nothing.',"loncapaclient","",false);';
- $menu=(<<MENU)
- swmenu=$mainwindow
- $navstatus
-MENU
- }
- $r->send_http_header;
- my $js =<<"ENDSUBM";
- <script type="text/javascript">
- function submitthis() {
- $menu
- self.close();
- }
-
- </script>
-ENDSUBM
- $r->print(&Apache::loncommon::start_page(undef,$js,
- {'only_body' => 1,
- 'bgcolor' => '#FFFFFF',
- 'add_entries' =>
- {'onload' =>
- "submitthis()"}}).
- &Apache::loncommon::end_page());
-
- return OK;
- }
- if ($ENV{QUERY_STRING} =~ /^launchExternal/) {
- &Apache::lonnet::put('environment',{'remotenavmap' => 'on'});
- &Apache::lonnet::appenv({'environment.remotenavmap' => 'on'});
- my $menu=&Apache::lonmenu::reopenmenu();
- my $navstatus=&Apache::lonmenu::get_nav_status();
- if ($menu) {
- $r->print(<<MENU);
- <script type="text/javascript">
- swmenu=$menu
- swmenu.clearTimeout(swmenu.menucltim);
- $navstatus
- </script>
-MENU
- }
- }
- if ($ENV{QUERY_STRING} eq 'turningOffExternal') {
- $env{'environment.remotenavmap'}='off';
- }
# Create the nav map
my $navmap = Apache::lonnavmaps::navmap->new();
@@ -139,43 +81,27 @@ MENU
$r->send_http_header;
# ------------------------------------------------------------ Get query string
- &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['register','sort','showOnlyHomework','postsymb']);
+ &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['sort','showOnlyHomework','postsymb','register']);
# ----------------------------------------------------- Force menu registration
- my $body_only='';
- my $js;
- if ($env{'environment.remotenavmap'} eq 'on') {
- $js='<script type="text/javascript">
- function collapse() {
- this.document.location="/adm/navmaps?collapseExternal";
- }
- </script>';
- $body_only=1;
- }
-
# Header
my $course_type = &Apache::loncommon::course_type();
- my ($title,$breadcrumb_text,$start_page,$args);
- if ($course_type eq 'Community') {
- $title = 'Community Contents';
- $breadcrumb_text = &mt('Community Contents');
- } else {
- $title = 'Course Contents';
- $breadcrumb_text = &mt('Course Contents');
- }
+ my $title = $course_type . ' Contents';
+ my ($start_page,$args);
if ($env{'form.register'}) {
$args = {'force_register' => $env{'form.register'}};
- $start_page = &Apache::loncommon::start_page($title,$js,$args);
+ $start_page = &Apache::loncommon::start_page($title,undef,$args);
} else {
my $brcrum = [{href => '/adm/navmaps',
- text => $breadcrumb_text,
+ text => &mt($course_type . ' Contents'),
no_mt => 1},
];
$args = {'bread_crumbs' => $brcrum};
- $start_page = &Apache::loncommon::start_page($title,$js,$args);
+ $start_page = &Apache::loncommon::start_page($title,undef,$args);
}
$r->print($start_page.
'<script type="text/javascript">window.focus();</script>');
+ &Apache::londocs::startContentScreen($r,'navmaps');
$r->rflush();
# Check that it's defined
@@ -211,27 +137,6 @@ MENU
}
}
- if ($ENV{QUERY_STRING} eq 'launchExternal') {
- $r->print('
- <form name="returnwin" action="/adm/flip?postdata=navlaunch%3a"
- method="post" target="loncapaclient">
- </form>');
- $r->print('
- <script type="text/javascript">
- this.document.returnwin.submit();
- </script>');
- }
-
- if ($env{'environment.remotenavmap'} ne 'on') {
- $r->print(&launch_win('link','yes',\%toplinkitems));
- }
- if ($env{'environment.remotenavmap'} eq 'on') {
- &Apache::lonnavmaps::add_linkitem(\%toplinkitems,'closenav',
- 'collapse()',
- "Close navigation window");
- }
-
-
# Check to see if the student is jumping to next open, do-able problem
if ($ENV{QUERY_STRING} =~ /^jumpToFirstHomework/) {
# Find the next homework problem that they can do.
@@ -301,7 +206,7 @@ MENU
}
&Apache::lonnavmaps::add_linkitem(\%toplinkitems,'everything',
'location.href="'.$link.'"',
- "Show everything");
+ 'Show everything');
$r->print("<span class=\"LC_info\">".&mt("Uncompleted Problems")."</span>");
$env{'form.filter'} = '';
$env{'form.condition'} = 1;
@@ -313,7 +218,7 @@ MENU
}
&Apache::lonnavmaps::add_linkitem(\%toplinkitems,'uncompleted',
'location.href="'.$link.'"',
- "Show only uncompleted problems");
+ 'Show only uncompleted problems');
}
my %selected=($env{'form.sort'} => ' selected="selected"');
@@ -326,7 +231,7 @@ MENU
<option value="title"'.$selected{'title'}.'>'.&mt('Title').'</option>
<option value="duedate"'.$selected{'duedate'}.'>'.&mt('Duedate').'</option>
<option value="discussion"'.$selected{'discussion'}.'>'.&mt('Has New Discussion').'</option>
- </select>
+ </select>
<input type="hidden" name="register" value="'.$env{'form.register'}.'" />
</span>
</form>');
@@ -356,42 +261,13 @@ MENU
}
#my $td=&tv_interval($t0);
#$r->print("<br />$td");
-
+ &Apache::londocs::endContentScreen($r);
$r->print(&Apache::loncommon::end_page());
$r->rflush();
return OK;
}
-sub launch_win {
- my ($mode,$script,$toplinkitems,$firsttime)=@_;
- my $result;
- if ($script ne 'no') {
- $result.='<script type="text/javascript">';
- }
- if ($firsttime) {
- $result.='function launch_navmapwin() {
- newWindow=open(\'/adm/navmaps?launchExternalRoles\',\'loncapanav\',\'width=400,height=600,scrollbars=1\');
- }';
- } else {
- $result.='function launch_navmapwin() {
- newWindow=open(\'/adm/navmaps?launchExternal\',\'loncapanav\',\'width=400,height=600,scrollbars=1\');
- }';
- }
- if ($mode eq 'now') {
- $result.="\nlaunch_navmapwin();\n";
- }
- if ($script ne 'no') {
- $result.='</script>';
- }
- if ($mode eq 'link') {
- &Apache::lonnavmaps::add_linkitem($toplinkitems,'launchnav',
- 'launch_navmapwin()',
- "Launch navigation window");
- }
- return $result;
-}
-
1;
__END__