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

version 1.80.8.7, 2015/03/14 22:29:25 version 1.86, 2014/12/11 13:16:49
Line 36  use LONCAPA; Line 36  use LONCAPA;
 use Apache::Constants qw(:common :http REDIRECT);  use Apache::Constants qw(:common :http REDIRECT);
 use Apache::lonnet;  use Apache::lonnet;
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonuserstate;  
 use Apache::lonlocal;  use Apache::lonlocal;
 use HTML::TokeParser;  use HTML::TokeParser;
 use GDBM_File;  use GDBM_File;
Line 269  sub handler { Line 268  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+)\:(.*)/;
         my $direction=$1;
       if ($env{'request.course.id'}) {        my $currenturl=$2;
           # Check if course needs to be re-initialized  
           my $loncaparev = $r->dir_config('lonVersion');  
           my ($result,@reinit) = &Apache::loncommon::needs_coursereinit($loncaparev);  
           if ($result eq 'switch') {  
               &Apache::loncommon::content_type($r,'text/html');  
               $r->send_http_header;  
               $r->print(&Apache::loncommon::check_release_result(@reinit));  
               return OK;  
           } elsif ($result eq 'update') {  
               my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};  
               my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};  
               my ($furl,$ferr) = &Apache::lonuserstate::readmap("$cdom/$cnum");  
               if ($ferr) {  
                   my $requrl = $r->uri;  
                   $env{'user.error.msg'}="$requrl:bre:0:0:Course not initialized";  
                   $env{'user.reinit'} = 1;  
                   return HTTP_NOT_ACCEPTABLE;  
               }  
           }  
       }  
   
       if ($currenturl=~m|^/enc/|) {        if ($currenturl=~m|^/enc/|) {
   $currenturl=&Apache::lonenc::unencrypted($currenturl);    $currenturl=&Apache::lonenc::unencrypted($currenturl);
       }        }
Line 305  sub handler { Line 283  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 306  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 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 {
      &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 407  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 461  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.86

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