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

Diff for /rat/lonpageflip.pm between versions 1.80.8.7 and 1.88

version 1.80.8.7, 2015/03/14 22:29:25 version 1.88, 2015/03/14 22:26:50
Line 305  sub handler { Line 305  sub handler {
             
   return REDIRECT;    return REDIRECT;
       }        }
       if ($direction eq 'return') {         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 328  sub handler {
             untie %hash;              untie %hash;
          } else {           } else {
     $newloc='/adm/navmaps';      $newloc='/adm/navmaps';
          }           }  
  &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/^https?\:\/\///;        $currenturl=~s/^https?\:\/\///;
       $currenturl=~s/^[^\/]+//;        $currenturl=~s/^[^\/]+//;
Line 350  sub handler { Line 350  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 {
      &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;
          }           }
       }        }
 # ------------------------------------------- Do we have any idea where we are?  # ------------------------------------------- Do we have any idea where we are?
Line 429  sub handler { Line 429  sub handler {
   }    }
 # ------------------------------------- Check for and display critical messages  # ------------------------------------- Check for and display critical messages
                   my ($redirect, $url) = &Apache::loncommon::critical_redirect(300);                    my ($redirect, $url) = &Apache::loncommon::critical_redirect(300);
                   unless ($redirect) {                    unless ($redirect) { 
                       $url=&Apache::lonnet::absolute_url().$redirecturl;                        $url=&Apache::lonnet::absolute_url().$redirecturl;
                       $url = &add_get_param($url, { 'symb' => $redirectsymb});        $url = &add_get_param($url, { 'symb' => $redirectsymb});
                   }                    }
                   &Apache::loncommon::content_type($r,'text/html');    &Apache::loncommon::content_type($r,'text/html');
                   $r->header_out(Location => $url);                    $r->header_out(Location => $url);
                   return REDIRECT;                    return REDIRECT;
       } else {        } else {
Line 483  ENDSTART Line 483  ENDSTART
                           &Apache::loncommon::start_page('No Resource')                            &Apache::loncommon::start_page('No Resource')
                          .'<h2>'.$lt{'title'}.'</h2>'                           .'<h2>'.$lt{'title'}.'</h2>'
                          .'<p>'.$lt{'explain'}.'</p>');                           .'<p>'.$lt{'explain'}.'</p>');
   }                    }
                   $r->print(                    $r->print(
                       &Apache::lonhtmlcommon::actionbox(                        &Apache::lonhtmlcommon::actionbox(
                           ['<a href="/adm/flip?postdata=return:">'.$lt{'back'}.'</a></li>',                            ['<a href="/adm/flip?postdata=return:">'.$lt{'back'}.'</a></li>',
Removed from v.1.80.8.7  
changed lines
  Added in v.1.88

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