version 1.13, 2009/09/08 20:56:47
|
version 1.16, 2010/03/17 15:59:38
|
Line 69 sub real_handler {
|
Line 69 sub real_handler {
|
my %toplinkitems=(); |
my %toplinkitems=(); |
&Apache::lonnavmaps::add_linkitem(\%toplinkitems,'blank','', |
&Apache::lonnavmaps::add_linkitem(\%toplinkitems,'blank','', |
"Select Action"); |
"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 |
# Create the nav map |
my $navmap = Apache::lonnavmaps::navmap->new(); |
my $navmap = Apache::lonnavmaps::navmap->new(); |
Line 139 MENU
|
Line 82 MENU
|
$r->send_http_header; |
$r->send_http_header; |
|
|
# ------------------------------------------------------------ Get query string |
# ------------------------------------------------------------ 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']); |
|
|
# ----------------------------------------------------- Force menu registration |
# ----------------------------------------------------- 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 |
# Header |
my $course_type = &Apache::loncommon::course_type(); |
my $course_type = &Apache::loncommon::course_type(); |
my ($title,$breadcrumb_text); |
my $title = $course_type . ' Contents'; |
if ($course_type eq 'Community') { |
my $breadcrumb_text = mt($course_type . ' Contents'); |
$title = 'Community Contents'; |
$r->print(&Apache::loncommon::start_page($title, '', |
$breadcrumb_text = &mt('Community Contents'); |
{ 'bread_crumbs' => [{text => $breadcrumb_text }],})); |
} else { |
#SD |
$title = 'Course Contents'; |
|
$breadcrumb_text = &mt('Course Contents'); |
|
} |
|
$r->print(&Apache::loncommon::start_page($title, |
|
$js, |
|
{'only_body' => $body_only, |
|
'force_register' => $env{'form.register'}, |
|
'bread_crumbs' => [{text => $breadcrumb_text }],})); |
|
$r->print('<script type="text/javascript">window.focus();</script>'); |
$r->print('<script type="text/javascript">window.focus();</script>'); |
|
|
$r->rflush(); |
$r->rflush(); |
Line 205 MENU
|
Line 129 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 |
# Check to see if the student is jumping to next open, do-able problem |
if ($ENV{QUERY_STRING} =~ /^jumpToFirstHomework/) { |
if ($ENV{QUERY_STRING} =~ /^jumpToFirstHomework/) { |
# Find the next homework problem that they can do. |
# Find the next homework problem that they can do. |
Line 345 MENU
|
Line 248 MENU
|
return OK; |
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; |
1; |
__END__ |
__END__ |
|
|