[BACK]Return to lonpageflip.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / rat

Diff for /rat/lonpageflip.pm between versions 1.79 and 1.79.6.1

version 1.79, 2009/04/23 17:31:25 version 1.79.6.1, 2010/12/30 21:15:40
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 {
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});
Removed from v.1.79  
changed lines
  Added in v.1.79.6.1

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