[BACK]Return to lonnavdisplay.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonnavdisplay.pm between versions 1.13 and 1.14

version 1.13, 2009/09/08 20:56:47 version 1.14, 2010/03/10 21:25:50
Line 72  sub real_handler { Line 72  sub real_handler {
     if ($ENV{QUERY_STRING} eq 'collapseExternal') {      if ($ENV{QUERY_STRING} eq 'collapseExternal') {
  &Apache::lonnet::put('environment',{'remotenavmap' => 'off'});   &Apache::lonnet::put('environment',{'remotenavmap' => 'off'});
  &Apache::lonnet::appenv({'environment.remotenavmap' => 'off'});   &Apache::lonnet::appenv({'environment.remotenavmap' => 'off'});
  my $menu=&Apache::lonmenu::reopenmenu();   my $menu='';
  my $navstatus=&Apache::lonmenu::get_nav_status();   my $navstatus=&Apache::lonmenu::get_nav_status();
  if ($menu) {      my $nothing = &Apache::lonhtmlcommon::javascript_nothing();
     $menu=(<<MENU)      my $mainwindow='window.open('.$nothing.',"loncapaclient","",false);';
              swmenu=$menu      $menu=(<<MENU);
              swmenu.clearTimeout(swmenu.menucltim);           swmenu=$mainwindow
      $navstatus       $navstatus
 MENU  
         } else {  
     my $nothing = &Apache::lonhtmlcommon::javascript_nothing();  
     my $mainwindow='window.open('.$nothing.',"loncapaclient","",false);';  
     $menu=(<<MENU)  
              swmenu=$mainwindow  
      $navstatus  
 MENU  MENU
  }      $r->send_http_header;
         $r->send_http_header;  
  my $js =<<"ENDSUBM";   my $js =<<"ENDSUBM";
   <script type="text/javascript">    <script type="text/javascript">
      function submitthis() {       function submitthis() {
Line 111  ENDSUBM Line 103  ENDSUBM
     if ($ENV{QUERY_STRING} =~ /^launchExternal/) {      if ($ENV{QUERY_STRING} =~ /^launchExternal/) {
  &Apache::lonnet::put('environment',{'remotenavmap' => 'on'});   &Apache::lonnet::put('environment',{'remotenavmap' => 'on'});
  &Apache::lonnet::appenv({'environment.remotenavmap' => 'on'});   &Apache::lonnet::appenv({'environment.remotenavmap' => 'on'});
   my $menu=&Apache::lonmenu::reopenmenu();    my $menu='';
  my $navstatus=&Apache::lonmenu::get_nav_status();   my $navstatus=&Apache::lonmenu::get_nav_status();
  if ($menu) {   if ($menu) {
     $r->print(<<MENU);      $r->print(<<MENU);
Removed from v.1.13  
changed lines
  Added in v.1.14

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>