[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.87

version 1.80.8.7, 2015/03/14 22:29:25 version 1.87, 2015/03/14 21:56:13
Line 269  sub handler { Line 269  sub handler {
   my @possibilities=();    my @possibilities=();
    &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['postdata']);     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['postdata']);
   if (($env{'form.postdata'})&&($env{'request.course.fn'})) {    if (($env{'form.postdata'})&&($env{'request.course.fn'})) {
       my ($direction,$currenturl) = ($env{'form.postdata'}=~/(\w+)\:(.*)/);        $env{'form.postdata'}=~/(\w+)\:(.*)/;
   
       if ($env{'request.course.id'}) {        if ($env{'request.course.id'}) {
           # Check if course needs to be re-initialized            # Check if course needs to be re-initialized
Line 293  sub handler { Line 293  sub handler {
           }            }
       }        }
   
         my $direction=$1;
         my $currenturl=$2;
       if ($currenturl=~m|^/enc/|) {        if ($currenturl=~m|^/enc/|) {
   $currenturl=&Apache::lonenc::unencrypted($currenturl);    $currenturl=&Apache::lonenc::unencrypted($currenturl);
       }        }
Line 305  sub handler { Line 307  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 330  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 352  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 431  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 485  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.87

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