--- rat/lonpageflip.pm	2020/05/25 16:42:59	1.80.8.10.2.1
+++ rat/lonpageflip.pm	2017/02/18 23:39:24	1.92
@@ -2,7 +2,7 @@
 #
 # Page flip handler
 #
-# $Id: lonpageflip.pm,v 1.80.8.10.2.1 2020/05/25 16:42:59 raeburn Exp $
+# $Id: lonpageflip.pm,v 1.92 2017/02/18 23:39:24 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -36,6 +36,7 @@ use LONCAPA;
 use Apache::Constants qw(:common :http REDIRECT);
 use Apache::lonnet;
 use Apache::loncommon();
+use Apache::lonnavmaps();
 use Apache::lonuserstate;
 use Apache::lonlocal;
 use HTML::TokeParser;
@@ -244,6 +245,7 @@ sub first_accessible_resource {
 	    my ($newmapid,$newresid)=split(/\./,$newrid);
 	    my $symb=&Apache::lonnet::encode_symb($newmap,$newresid,$hash{'src_'.$newrid});
 	    $furl=&add_get_param($hash{'src_'.$newrid},{ 'symb' => $symb });
+            &check_for_syllabus(\$furl);
 	    if ($hash{'encrypted_'.$newrid}) {
 		$furl=&Apache::lonenc::encrypted($furl);
 	    }
@@ -255,26 +257,41 @@ sub first_accessible_resource {
     }
 }
 
-sub reinited_js {
-    my ($url,$cid,$timeout) = @_;
-    if (!$timeout) {
-        $timeout = 0;
+sub first_answerable_ressymb {
+    my $navmap = Apache::lonnavmaps::navmap->new;
+    return unless (ref($navmap));
+    my $iterator = $navmap->getIterator(undef,undef,undef,1);
+    return unless (ref($iterator));
+    my ($curRes,$result);
+    while ($curRes = $iterator->next()) {
+        if (ref($curRes) && $curRes->is_problem()) {
+            foreach my $part (@{$curRes->parts()}) {
+                if ($curRes->tries($part) < $curRes->maxtries($part)) {
+                    $result = $curRes->link().'?symb='.$curRes->shown_symb();
+                    last;
+                }    
+            }
+        }
     }
-    return <<"END";
-<script type="text/javascript">
-// <![CDATA[
-setTimeout(function() {
-    var newurl = '$url';
-    if (document.getElementById('LC_update_$cid')) {
-        document.getElementById('LC_update_$cid').style.display = 'none';
+    if ($result) {
+        return $result; 
+    } else {
+        return &first_accessible_resource(); 
     }
-    if ((newurl !== null) && (newurl !== '') && (newurl !== 'undefined')) {
-        window.location.href = "$url";
+}
+
+sub check_for_syllabus {
+    my ($srcref) = @_;
+    return unless (ref($srcref) eq 'SCALAR');
+    if ($env{'request.course.id'}) {
+        my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+        my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+        if (($$srcref =~ m{^\Q/public/$cdom/$cnum/syllabus\E($|\?)}) &&
+            ($ENV{'SERVER_PORT'} == 443) &&
+            ($env{'course.'.$env{'request.course.id'}.'.externalsyllabus'} =~ m{^http://})) {
+            $$srcref .= (($$srcref =~/\?/)? '&':'?') . 'usehttp=1';
+        }
     }
-}, $timeout);
-// ]]>
-</script>
-END
 }
 
 # ================================================================ Main Handler
@@ -293,7 +310,6 @@ sub handler {
   my %cachehash=(); 
   my $multichoice=0;
   my %multichoicehash=();
-  my %prog_state=(); 
   my ($redirecturl,$redirectsymb,$enc,$anchor);
   my $next='';
   my @possibilities=();
@@ -313,6 +329,17 @@ sub handler {
               $last=$hash{'last_known'};
               untie(%hash);
           }
+      } elsif ($direction eq 'firstanswerable') {
+          my $furl = &first_answerable_ressymb();
+          &Apache::loncommon::content_type($r,'text/html');
+          $r->header_out(Location =>
+                         &Apache::lonnet::absolute_url().$furl);
+          return REDIRECT;
+      } elsif ($direction eq 'endplacement') {
+          &Apache::loncommon::content_type($r,'text/html');
+          $r->send_http_header;
+          $r->print(&Apache::lonplacementtest::showresult());
+          return OK;
       }
       if ($env{'request.course.id'}) {
           # Check if course needs to be re-initialized
@@ -334,20 +361,8 @@ sub handler {
                       untie(%hash);
                   }
               }
-              &Apache::loncommon::content_type($r,'text/html');
-              $r->send_http_header;
-              $r->print(&Apache::loncommon::start_page('Content Changed'));
-              my $preamble = '<div id="LC_update_'.$env{'request.course.id'}.'" class="LC_info">'.
-                             '<br />'.
-                             &mt('Your course session is being updated because of recent changes by course personnel.').
-                             ' '.&mt('Please be patient.').'<br /></div>'.
-                             '<div style="padding:0;clear:both;margin:0;border:0"></div>';
-              %prog_state = &Apache::lonhtmlcommon::Create_PrgWin($r,undef,$preamble);
-              &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,&mt('Updating course'));
               my ($furl,$ferr) = &Apache::lonuserstate::readmap("$cdom/$cnum");
-              &Apache::lonhtmlcommon::Update_PrgWin($r,\%prog_state,&mt('Finished'));
               if ($ferr) {
-                  &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
                   my $requrl = $r->uri;
                   $env{'user.error.msg'}="$requrl:bre:0:0:Course not initialized";
                   $env{'user.reinit'} = 1;
@@ -364,17 +379,11 @@ sub handler {
       }
       if ($direction eq 'firstres') {
 	  my $furl=&first_accessible_resource();
-          $furl=&Apache::lonnet::absolute_url().$furl;
-          if ($reinitcheck eq 'update') {
-              &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
-              $r->print(&reinited_js($furl,$env{'request.course.id'},100));
-              $r->print(&Apache::loncommon::end_page());
-              return OK;
-          } else {
-	      &Apache::loncommon::content_type($r,'text/html');
-	      $r->header_out(Location => $furl);
-	      return REDIRECT;
-          }
+	  &Apache::loncommon::content_type($r,'text/html');
+	  $r->header_out(Location => 
+			 &Apache::lonnet::absolute_url().$furl);
+	     
+	  return REDIRECT;
       }
       if ($direction eq 'return') { 
 # -------------------------------------------------------- Return to last known
@@ -385,7 +394,12 @@ sub handler {
 	    $id=$hash{'map_pc_'.&Apache::lonnet::clutter($murl)}.'.'.$id;
 	    $newloc=$hash{'src_'.$id};
 	    if ($newloc) {
-		if ($hash{'encrypted_'.$id}) { $newloc=&Apache::lonenc::encrypted($newloc); }
+                &check_for_syllabus(\$newloc);
+		if ($hash{'encrypted_'.$id}) { 
+                    $newloc=&Apache::lonenc::encrypted($newloc);
+                } elsif ($newloc =~ m{^(/adm/wrapper/ext/[^\#]+)\#([^\#]+)$}) {
+                    $newloc = $1.&escape('#').$2;
+                }
 	    } else {
 		$newloc='/adm/navmaps';
 	    }
@@ -393,16 +407,11 @@ sub handler {
          } else {
 	    $newloc='/adm/navmaps';
          }
-         $newloc=&Apache::lonnet::absolute_url().$newloc;
-         if ($reinitcheck eq 'update') {
-             $r->print(&reinited_js($newloc,$env{'request.course.id'},100));
-             $r->print(&Apache::loncommon::end_page());
-             return OK;
-         } else {
-             &Apache::loncommon::content_type($r,'text/html');
-             $r->header_out(Location => $newloc);
-             return REDIRECT;
-         }
+	 &Apache::loncommon::content_type($r,'text/html');
+	 $r->header_out(Location => 
+			&Apache::lonnet::absolute_url().$newloc);
+	     
+	 return REDIRECT;
       }
 #
 # Is the current URL on the map? If not, start with last known URL
@@ -416,21 +425,15 @@ sub handler {
              $last=$hash{'last_known'};
              untie(%hash);
          }
+         my $newloc;
          if ($last) {
 	     $currenturl=&Apache::lonnet::clutter((&Apache::lonnet::decode_symb($last))[2]);
 	 } else {
-             my $newloc = &Apache::lonnet::absolute_url().
-                          '/adm/navmaps';
-             if ($reinitcheck eq 'update') {
-                 &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
-                 $r->print(&reinited_js($newloc,$env{'request.course.id'},100));
-                 $r->print(&Apache::loncommon::end_page());
-                 return OK;
-             } else {
-                 &Apache::loncommon::content_type($r,'text/html');
-	         $r->header_out(Location => $newloc);
-	         return REDIRECT;
-             }
+	     &Apache::loncommon::content_type($r,'text/html');
+	     $r->header_out(Location => 
+			    &Apache::lonnet::absolute_url().
+			    '/adm/navmaps');
+	     return REDIRECT;
          }
       }
 # ------------------------------------------- Do we have any idea where we are?
@@ -509,8 +512,9 @@ sub handler {
                      &Apache::lonnet::linklog($redirecturl,$currenturl);
 		  }
 # ------------------------------------- Check for and display critical messages
-                  my ($redirect, $url) = &Apache::loncommon::critical_redirect(300,'flip');
+                  my ($redirect, $url) = &Apache::loncommon::critical_redirect(300);
                   unless ($redirect) {
+                      &check_for_syllabus(\$redirecturl);
                       $url=&Apache::lonnet::absolute_url().$redirecturl;
                       my $addanchor;
                       if (($anchor ne '') && (!$enc || $env{'request.role.adv'})) {
@@ -522,16 +526,9 @@ sub handler {
                           $url .= $anchor;
                       }
                   }
-                  if ($reinitcheck eq 'update') {
-                      &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
-                      $r->print(&reinited_js($url,$env{'request.course.id'},100));
-                      $r->print(&Apache::loncommon::end_page());
-                      return OK;
-                  } else {
-                      &Apache::loncommon::content_type($r,'text/html');
-                      $r->header_out(Location => $url);
-                      return REDIRECT;
-                  }
+                  &Apache::loncommon::content_type($r,'text/html');
+                  $r->header_out(Location => $url);
+                  return REDIRECT;
 	      } else {
 # --------------------------------------------------------- There was a problem
                   &Apache::loncommon::content_type($r,'text/html');
@@ -549,7 +546,8 @@ sub handler {
 						     '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.');
+                                                     'gonav' => 'Go to the Contents page to select a resource to display.',
+                                                     );
                   if (&Apache::loncommon::course_type() eq 'Community') {
                       $lt{'nav'} = &mt('Community Contents');
                   }
@@ -566,9 +564,11 @@ $lt{'pick'}:
 <tr><th>$lt{'titleheader'}</th><th>$lt{'type'}</th></tr>
 ENDSTART
                      foreach my $id (@possibilities) {
+                        my $src = $multichoicehash{'src_'.$id};
+                        &check_for_syllabus(\$src);
                         $r->print(
                               '<tr><td><a href="'.
-				  &add_get_param($multichoicehash{'src_'.$id},
+				  &add_get_param($src,
 						 {'symb' =>
 						      $multichoicehash{'symb_'.$id},
 						  }).'">'.
@@ -590,23 +590,37 @@ ENDSTART
                                   .'<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 (($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Placement') && 
+                              (!$env{'request.role.adv'})) {
+                              my ($score,$incomplete) = &Apache::lonplacementtest::check_completion(undef,undef,1); 
+                              if ($incomplete) {
+                                  $r->print(&Apache::lonplacementtest::showincomplete($incomplete)); 
+                              } else {
+                                  $r->print(&Apache::lonplacementtest::showresult(1));
+                              }
+                          } else {  
+                              $r->print(
+                                  &Apache::loncommon::start_page('No Resource')
+                                 .'<h2>'.$lt{'title'}.'</h2>'
+                                 .'<p>'.$lt{'explain'}.'</p>');
+                          }
                       }
 		  }
-                  if ((!@possibilities) && ($reinitcheck))  {
-                      $r->print(
-                          &Apache::lonhtmlcommon::actionbox(
-                              ['<a href="/adm/navmaps">'.$lt{'nav'}.'</a></li>'
-                              ]));
-                  } else {
-                      $r->print(
-                          &Apache::lonhtmlcommon::actionbox(
-                              ['<a href="/adm/flip?postdata=return:">'.$lt{'back'}.'</a></li>',
-                               '<a href="/adm/navmaps">'.$lt{'nav'}.'</a></li>'
-                              ]));
+                  unless (($env{'course.'.$env{'request.course.id'}.'.type'} eq 'Placement') ||
+                          ($env{'request.role.adv'})) {
+                      if ((!@possibilities) && ($reinitcheck))  {
+                          $r->print(
+                              &Apache::lonhtmlcommon::actionbox(
+                                  ['<a href="/adm/navmaps">'.$lt{'nav'}.'</a></li>'
+                                  ]));
+                      } 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());
       
@@ -614,23 +628,12 @@ ENDSTART
 	      }
 	  } else {
 # ------------------------------------------------- Problem, could not tie hash
-              if ($reinitcheck eq 'update') {
-                  &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
-                  $r->print(&Apache::loncommon::end_page());
-              }
               $env{'user.error.msg'}="/adm/flip:bre:0:1:Course Data Missing";
               return HTTP_NOT_ACCEPTABLE; 
           }
       } else {
 # ---------------------------------------- No, could not determine where we are
-          my $newloc = '/adm/ambiguous';
-          if ($reinitcheck eq 'update') {
-              &Apache::lonhtmlcommon::Close_PrgWin($r,\%prog_state);
-              $r->print(&reinited_js($newloc,$env{'request.course.id'},100));
-              $r->print(&Apache::loncommon::end_page());
-          } else {
-	      $r->internal_redirect($newloc);
-          }
+	  $r->internal_redirect('/adm/ambiguous');
           return OK;
       }
   } else {