Diff for /rat/lonpageflip.pm between versions 1.77 and 1.80.8.1

version 1.77, 2008/11/20 15:19:05 version 1.80.8.1, 2012/05/01 22:51:12
Line 222  sub navlaunch { Line 222  sub navlaunch {
     &Apache::loncommon::content_type($r,'text/html');      &Apache::loncommon::content_type($r,'text/html');
     &Apache::loncommon::no_cache($r);      &Apache::loncommon::no_cache($r);
     $r->send_http_header;      $r->send_http_header;
     $r->print(&Apache::loncommon::start_page('Launched'));         $r->print(&Apache::loncommon::start_page('Launched'));
     $r->print(<<ENDNAV);      $r->print(<<ENDNAV);
     <p><a href="/adm/flip?postdata=firstres%3a">Goto first resource</a></p>      <p><a href="/adm/flip?postdata=firstres%3a">Goto first resource</a></p>
     <script type="text/javascript">      <script type="text/javascript">
  function collapse() {          function collapse() {
     menu=window.open("/adm/navmaps?collapseExternal","loncapanav",              menu=window.open("/adm/navmaps?collapseExternal","loncapanav",
      "height=600,width=400,scrollbars=1");                               "height=600,width=400,scrollbars=1");
     this.document.location='/adm/navmaps?turningOffExternal';              this.document.location='/adm/navmaps?turningOffExternal';
  }          }
     </script>      </script>
     <p><a href="javascript:collapse();">Collapse external navigation window</a></p>      <p><a href="javascript:collapse();">Collapse external navigation window</a></p>
 ENDNAV  ENDNAV
Line 248  sub first_accessible_resource { Line 248  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 (!&Apache::lonnet::allowed('bre',$url,$args{'symb'})) {          if ((($env{'environment.remotenavmap'} eq 'on') && ($furl =~ m{^/adm/navmaps})) ||
               (!&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 325  sub handler { Line 326  sub handler {
             untie %hash;              untie %hash;
          } else {           } else {
     $newloc='/adm/navmaps';      $newloc='/adm/navmaps';
          }             }
  if ($newloc eq '/adm/navmaps' && $direction eq 'navlaunch') {           if (($newloc =~ m{^/adm/navmaps}) && ($direction eq 'navlaunch')) {
      &navlaunch($r);               &navlaunch($r);
      return OK;               return OK;
  } else {           } else {
      &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().$newloc);      &Apache::lonnet::absolute_url().$newloc);
             
      return REDIRECT;       return REDIRECT;
  }           }
       }        }
       $currenturl=~s/^http\:\/\///;        $currenturl=~s/^https?\:\/\///;
       $currenturl=~s/^[^\/]+//;        $currenturl=~s/^[^\/]+//;
 #  #
 # Is the current URL on the map? If not, start with last known URL  # Is the current URL on the map? If not, start with last known URL
Line 352  sub handler { Line 353  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') {               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 {               } else {
  &navlaunch($r);                   &navlaunch($r);
  return OK;                   return OK;
      }               }
          }           }
       }        }
 # ------------------------------------------- Do we have any idea where we are?  # ------------------------------------------- Do we have any idea where we are?
Line 449  sub handler { Line 450  sub handler {
                      &Apache::lonnet::appenv({'user.criticalcheck.time'=>time});                       &Apache::lonnet::appenv({'user.criticalcheck.time'=>time});
   }    }
   
                     if (($redirecturl =~ m{^/adm/navmaps}) &&
                         ($env{'environment.remotenavmap'} eq 'on')) {
                         &navlaunch($r);
                         return OK;
                     }
   &Apache::loncommon::content_type($r,'text/html');    &Apache::loncommon::content_type($r,'text/html');
   my $url=&Apache::lonnet::absolute_url().$redirecturl;    my $url=&Apache::lonnet::absolute_url().$redirecturl;
   $url = &add_get_param($url, { 'symb' => $redirectsymb});    $url = &add_get_param($url, { 'symb' => $redirectsymb});
Line 478  $start_page Line 484  $start_page
 <p>  <p>
 $lt{'pick'}:  $lt{'pick'}:
 <p>  <p>
 <table border=2>  <table border="2">
 <tr><th>$lt{'titleheader'}</th><th>$lt{'type'}</th></tr>  <tr><th>$lt{'titleheader'}</th><th>$lt{'type'}</th></tr>
 ENDSTART  ENDSTART
                      foreach my $id (@possibilities) {                       foreach my $id (@possibilities) {

Removed from v.1.77  
changed lines
  Added in v.1.80.8.1


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