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

version 1.88, 2015/03/14 22:26:50 version 1.89, 2015/03/23 00:03:16
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 305  sub handler { Line 328  sub handler {
             
   return REDIRECT;    return REDIRECT;
       }        }
       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';
     }      }
             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/^[^\/]+//;  
 #  #
 # 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 429  sub handler { Line 451  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 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 {
                         if ($reinitcheck) {
                             if (&Apache::loncommon::course_type() eq 'Community') {
                                 $r->print(
                                     &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>');
                         }
     }
                     if ((!@possibilities) && ($reinitcheck))  {
                       $r->print(                        $r->print(
                           &Apache::loncommon::start_page('No Resource')                            &Apache::lonhtmlcommon::actionbox(
                          .'<h2>'.$lt{'title'}.'</h2>'                                ['<a href="/adm/navmaps">'.$lt{'nav'}.'</a></li>'
                          .'<p>'.$lt{'explain'}.'</p>');                                ]));
                   }                    } else {
                   $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>',
                            '<a href="/adm/navmaps">'.$lt{'nav'}.'</a></li>'                                 '<a href="/adm/navmaps">'.$lt{'nav'}.'</a></li>'
                           ])                                ]));
                      .&Apache::loncommon::end_page());                    }
                     $r->print(&Apache::loncommon::end_page());
         
                   return OK;                    return OK;
       }        }
   } else {    } else {

Removed from v.1.88  
changed lines
  Added in v.1.89


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