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

version 1.80.8.7, 2015/03/14 22:29:25 version 1.80.8.8, 2015/03/23 12:49:10
Line 270  sub handler { Line 270  sub handler {
    &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+)\:(.*)/);        my ($direction,$currenturl) = ($env{'form.postdata'}=~/(\w+)\:(.*)/);
         if ($currenturl=~m|^/enc/|) {
             $currenturl=&Apache::lonenc::unencrypted($currenturl);
         }
         $currenturl=~s/\.\d+\.(\w+)$/\.$1/;
         $currenturl=~s/^https?\:\/\///;
         $currenturl=~s/^[^\/]+//;
         my ($preupdatepos,$last,$reinitcheck);
         if ($direction eq 'return') {
             if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db',
                       &GDBM_READER(),0640)) {
                 $last=$hash{'last_known'};
                 untie(%hash);
             }
         }
       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
           my $loncaparev = $r->dir_config('lonVersion');            my $loncaparev = $r->dir_config('lonVersion');
           my ($result,@reinit) = &Apache::loncommon::needs_coursereinit($loncaparev);            ($reinitcheck,my @reinit) = &Apache::loncommon::needs_coursereinit($loncaparev);
           if ($result eq 'switch') {            if ($reinitcheck eq 'switch') {
               &Apache::loncommon::content_type($r,'text/html');                &Apache::loncommon::content_type($r,'text/html');
               $r->send_http_header;                $r->send_http_header;
               $r->print(&Apache::loncommon::check_release_result(@reinit));                $r->print(&Apache::loncommon::check_release_result(@reinit));
               return OK;                return OK;
           } elsif ($result eq 'update') {            } elsif ($reinitcheck eq 'update') {
               my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};                my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
               my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};                my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                 $preupdatepos = &Apache::lonnet::symbread($currenturl);
                 unless ($direction eq 'return') {
                     if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db',
                                   &GDBM_READER(),0640)) {
                         $last=$hash{'last_known'};
                         untie(%hash);
                     }
                 }
               my ($furl,$ferr) = &Apache::lonuserstate::readmap("$cdom/$cnum");                my ($furl,$ferr) = &Apache::lonuserstate::readmap("$cdom/$cnum");
               if ($ferr) {                if ($ferr) {
                   my $requrl = $r->uri;                    my $requrl = $r->uri;
                   $env{'user.error.msg'}="$requrl:bre:0:0:Course not initialized";                    $env{'user.error.msg'}="$requrl:bre:0:0:Course not initialized";
                   $env{'user.reinit'} = 1;                    $env{'user.reinit'} = 1;
                   return HTTP_NOT_ACCEPTABLE;                    return HTTP_NOT_ACCEPTABLE;
                 } else {
                     if ($last) {
                         my ($murl,$id,$fn)=&Apache::lonnet::decode_symb($last);
                         unless (&Apache::lonnet::symbverify($last,$fn)) {
                             undef($last);
                         }
                     }
               }                }
           }            }
       }        }
   
       if ($currenturl=~m|^/enc/|) {  
   $currenturl=&Apache::lonenc::unencrypted($currenturl);  
       }  
       $currenturl=~s/\.\d+\.(\w+)$/\.$1/;  
       if ($direction eq 'firstres') {        if ($direction eq 'firstres') {
   my $furl=&first_accessible_resource();    my $furl=&first_accessible_resource();
   &Apache::loncommon::content_type($r,'text/html');    &Apache::loncommon::content_type($r,'text/html');
Line 307  sub handler { Line 330  sub handler {
       }        }
       if ($direction eq 'return') {         if ($direction eq 'return') { 
 # -------------------------------------------------------- Return to last known  # -------------------------------------------------------- Return to last known
          my $last;  
          if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db',  
                     &GDBM_READER(),0640)) {  
      $last=$hash{'last_known'};  
              untie(%hash);  
          }  
          my $newloc;           my $newloc;
          if (($last) && (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'.db',           if (($last) && (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'.db',
                         &GDBM_READER(),0640))) {                          &GDBM_READER(),0640))) {
Line 321  sub handler { Line 338  sub handler {
     $newloc=$hash{'src_'.$id};      $newloc=$hash{'src_'.$id};
     if ($newloc) {      if ($newloc) {
  if ($hash{'encrypted_'.$id}) { $newloc=&Apache::lonenc::encrypted($newloc); }   if ($hash{'encrypted_'.$id}) { $newloc=&Apache::lonenc::encrypted($newloc); }
         
     } else {      } else {
  $newloc='/adm/navmaps';   $newloc='/adm/navmaps';
     }      }
Line 335  sub handler { Line 351  sub handler {
             
  return REDIRECT;   return REDIRECT;
       }        }
       $currenturl=~s/^https?\:\/\///;  
       $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
 #  #
   
       unless (&Apache::lonnet::is_on_map($currenturl)) {        unless (&Apache::lonnet::is_on_map($currenturl)) {
  my $last;           if ($preupdatepos) {
          if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db',               undef($preupdatepos);
                     &GDBM_READER(),0640)) {           } elsif (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db',
      $last=$hash{'last_known'};                              &GDBM_READER(),0640)) {
                $last=$hash{'last_known'};
              untie(%hash);               untie(%hash);
          }           }
            my $newloc;
          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/navmaps');
      return REDIRECT;       return REDIRECT;
          }           }
       }        }
 # ------------------------------------------- Do we have any idea where we are?  # ------------------------------------------- Do we have any idea where we are?
       my $position;        my $position;
       if ($position=Apache::lonnet::symbread($currenturl)) {        if ($preupdatepos) {
             $position = $preupdatepos;
         } else {
             $position=Apache::lonnet::symbread($currenturl);
         }
         if ($position) {
 # ------------------------------------------------------------------------- Yes  # ------------------------------------------------------------------------- Yes
   my ($startoutmap,$mapnum,$thisurl)=&Apache::lonnet::decode_symb($position);    my ($startoutmap,$mapnum,$thisurl)=&Apache::lonnet::decode_symb($position);
           $cachehash{$startoutmap}{$thisurl}=[$thisurl,$mapnum];            $cachehash{$startoutmap}{$thisurl}=[$thisurl,$mapnum];
Line 450  sub handler { Line 472  sub handler {
      'pick' =>       'pick' =>
      'Please click on the the resource you intend to access',       'Please click on the the resource you intend to access',
      'titleheader' => 'Title',       'titleheader' => 'Title',
      'type' => 'Type');       'type' => 'Type',
                                                        'update' => 'Content updated',
                                                        'expupdate' => 'As a result of a recent update to the sequence of materials, it is not possible to complete the page flip.',
                                                        'gonav' => 'Go to the Contents page to select a resource to display.');
                   if (&Apache::loncommon::course_type() eq 'Community') {                    if (&Apache::loncommon::course_type() eq 'Community') {
                       $lt{'nav'} = &mt('Community Contents');                        $lt{'nav'} = &mt('Community Contents');
                   }                    }
Line 479  ENDSTART Line 504  ENDSTART
                      }                       }
                      $r->print('</table>');                       $r->print('</table>');
                   } else {                    } else {
                       $r->print(                        if ($reinitcheck) {
                           &Apache::loncommon::start_page('No Resource')                            if (&Apache::loncommon::course_type() eq 'Community') {
                          .'<h2>'.$lt{'title'}.'</h2>'                                $r->print(
                          .'<p>'.$lt{'explain'}.'</p>');                                    &Apache::loncommon::start_page('Community Contents Updated'));
                             } else { 
                                 $r->print(
                                     &Apache::loncommon::start_page('Course Contents Updated'));
                             }
                             $r->print('<h2>'.$lt{'update'}.'</h2>'
                                     .'<p>'.$lt{'expupdate'}.'<br />'
                                     .$lt{'gonav'}.'</p>');
                         } else {
                             $r->print(
                                 &Apache::loncommon::start_page('No Resource')
                                .'<h2>'.$lt{'title'}.'</h2>'
                                .'<p>'.$lt{'explain'}.'</p>');
                         }
   }    }
                   $r->print(                    if ((!@possibilities) && ($reinitcheck))  {
                       &Apache::lonhtmlcommon::actionbox(                        $r->print(
                           ['<a href="/adm/flip?postdata=return:">'.$lt{'back'}.'</a></li>',                            &Apache::lonhtmlcommon::actionbox(
                            '<a href="/adm/navmaps">'.$lt{'nav'}.'</a></li>'                                ['<a href="/adm/navmaps">'.$lt{'nav'}.'</a></li>'
                           ])                                ]));
                      .&Apache::loncommon::end_page());                    } else {
                         $r->print(
                             &Apache::lonhtmlcommon::actionbox(
                                 ['<a href="/adm/flip?postdata=return:">'.$lt{'back'}.'</a></li>',
                                  '<a href="/adm/navmaps">'.$lt{'nav'}.'</a></li>'
                                 ]));
                     }
                     $r->print(&Apache::loncommon::end_page());
         
                   return OK;                    return OK;
       }        }
   } else {    } else {

Removed from v.1.80.8.7  
changed lines
  Added in v.1.80.8.8


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