Diff for /rat/lonpageflip.pm between versions 1.80.8.5 and 1.80.8.6

version 1.80.8.5, 2014/06/26 18:21:24 version 1.80.8.6, 2014/06/26 18:28:25
Line 218  sub get_next_possible_move { Line 218  sub get_next_possible_move {
               return ($next,$mapurl);                return ($next,$mapurl);
 }  }
   
 sub navlaunch {  
     my ($r)=@_;  
     &Apache::loncommon::content_type($r,'text/html');  
     &Apache::loncommon::no_cache($r);  
     $r->send_http_header;  
     $r->print(&Apache::loncommon::start_page('Launched'));  
     $r->print(<<ENDNAV);  
     <p><a href="/adm/flip?postdata=firstres%3a">Goto first resource</a></p>  
     <script type="text/javascript">  
         function collapse() {  
             menu=window.open("/adm/navmaps?collapseExternal","loncapanav",  
                              "height=600,width=400,scrollbars=1");  
             this.document.location='/adm/navmaps?turningOffExternal';  
         }  
     </script>  
     <p><a href="javascript:collapse();">Collapse external navigation window</a></p>  
 ENDNAV  
     $r->print(&Apache::loncommon::end_page());  
 }  
   
 sub first_accessible_resource {  sub first_accessible_resource {
     my $furl;      my $furl;
     if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'.db',      if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'.db',
Line 249  sub first_accessible_resource { Line 229  sub first_accessible_resource {
     my ($name,$value) = split(/=/,$pair);      my ($name,$value) = split(/=/,$pair);
     $args{&unescape($name)} = &unescape($value);      $args{&unescape($name)} = &unescape($value);
  }   }
         if ((($env{'environment.remotenavmap'} eq 'on') && ($furl =~ m{^/adm/navmaps})) ||          if (!&Apache::lonnet::allowed('bre',$url,$args{'symb'})) {
             (!&Apache::lonnet::allowed('bre',$url,$args{'symb'}))) {  
 # Wow, we cannot see this ... move forward to the next one that we can see  # Wow, we cannot see this ... move forward to the next one that we can see
     my ($newrid,$newmap)=&move($hash{'first_rid'},$hash{'first_mapurl'},'forward');      my ($newrid,$newmap)=&move($hash{'first_rid'},$hash{'first_mapurl'},'forward');
 # Build the new URL  # Build the new URL
Line 304  sub handler { Line 283  sub handler {
             
   return REDIRECT;    return REDIRECT;
       }        }
       if ($direction eq 'return' || $direction eq 'navlaunch') {        if ($direction eq 'return') { 
 # -------------------------------------------------------- Return to last known  # -------------------------------------------------------- Return to last known
          my $last;           my $last;
          if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db',           if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db',
Line 328  sub handler { Line 307  sub handler {
          } else {           } else {
     $newloc='/adm/navmaps';      $newloc='/adm/navmaps';
          }           }
          if (($newloc =~ m{^/adm/navmaps}) && ($direction eq 'navlaunch')) {   &Apache::loncommon::content_type($r,'text/html');
              &navlaunch($r);   $r->header_out(Location => 
              return OK;   &Apache::lonnet::absolute_url().$newloc);
          } else {  
      &Apache::loncommon::content_type($r,'text/html');  
      $r->header_out(Location =>   
     &Apache::lonnet::absolute_url().$newloc);  
             
      return REDIRECT;   return REDIRECT;
          }  
       }        }
       $currenturl=~s/^https?\:\/\///;        $currenturl=~s/^https?\:\/\///;
       $currenturl=~s/^[^\/]+//;        $currenturl=~s/^[^\/]+//;
Line 354  sub handler { Line 328  sub handler {
          if ($last) {           if ($last) {
      $currenturl=&Apache::lonnet::clutter((&Apache::lonnet::decode_symb($last))[2]);       $currenturl=&Apache::lonnet::clutter((&Apache::lonnet::decode_symb($last))[2]);
  } else {   } else {
              if ($direction eq 'return') {       &Apache::loncommon::content_type($r,'text/html');
  &Apache::loncommon::content_type($r,'text/html');       $r->header_out(Location => 
  $r->header_out(Location =>       &Apache::lonnet::absolute_url().
  &Apache::lonnet::absolute_url().      '/adm/noidea.html');
  '/adm/noidea.html');       return REDIRECT;
  return REDIRECT;  
              } else {  
                  &navlaunch($r);  
                  return OK;  
              }  
          }           }
       }        }
 # ------------------------------------------- Do we have any idea where we are?  # ------------------------------------------- Do we have any idea where we are?
Line 552  described at http://www.lon-capa.org. Line 521  described at http://www.lon-capa.org.
   
 =item get_next_possible_move()  =item get_next_possible_move()
   
 =item navlaunch()  
   
 =item first_accessible_resource()  =item first_accessible_resource()
   
 =item handler()  =item handler()

Removed from v.1.80.8.5  
changed lines
  Added in v.1.80.8.6


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