--- rat/lonpageflip.pm	2005/11/10 19:16:02	1.59
+++ rat/lonpageflip.pm	2006/01/09 18:51:26	1.62
@@ -2,7 +2,7 @@
 #
 # Page flip handler
 #
-# $Id: lonpageflip.pm,v 1.59 2005/11/10 19:16:02 www Exp $
+# $Id: lonpageflip.pm,v 1.62 2006/01/09 18:51:26 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -96,25 +96,25 @@ sub move {
                   while ($hash{'type_'.$rid} eq 'finish') {
 	             $rid=$hash{'ids_'.$hash{'map_id_'.(split(/\./,$rid))[0]}};
                   }
-                  map {
-                      my $thiscond=
-      &Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}});
+		  foreach my $id (split(/\,/,$hash{'to_'.$rid})) {
+		      my $thiscond=
+      &Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$id}});
                       if ($thiscond>=$mincond) {
 		          if ($posnext) {
-		             $posnext.=','.$_.':'.$thiscond;
+		             $posnext.=','.$id.':'.$thiscond;
                           } else {
-                             $posnext=$_.':'.$thiscond;
+                             $posnext=$id.':'.$thiscond;
 		          }
                           if ($thiscond>$mincond) { $mincond=$thiscond; }
 	              }
-                  } split(/\,/,$hash{'to_'.$rid});
-                  map {
-                      my ($linkid,$condval)=split(/\:/,$_);
+                  } 
+		  foreach my $id (split(/\,/,$posnext))  {
+                      my ($linkid,$condval)=split(/\:/,$id);
                       if ($condval>=$mincond) {
 		          $next=&addrid($next,$hash{'goesto_'.$linkid},
                                 $hash{'condid_'.$hash{'undercond_'.$linkid}});
                       }
-                  } split(/\,/,$posnext);
+                  }
                   if ($hash{'is_map_'.$next}) {
 # This jumps to the beginning of a new map (going down level)
                       if (
@@ -130,31 +130,31 @@ sub move {
                     ((split(/\./,$startoutrid))[0]!=(split(/\./,$next))[0]) {
 # This comes up from a map (coming up one level);
 		      $mapurl=$hash{'map_id_'.(split(/\./,$next))[0]};
-                  }
+		  }
               } elsif ($direction eq 'back') {
 # ------------------------------------------------------------------- Backwards
                  while ($hash{'type_'.$rid} eq 'start') {
 	             $rid=$hash{'ids_'.$hash{'map_id_'.(split(/\./,$rid))[0]}};
 		 }
-                  map {
-                      my $thiscond=
-      &Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}});
-                      if ($thiscond>=$mincond) {
-		          if ($posnext) {
-		             $posnext.=','.$_.':'.$thiscond;
-                          } else {
-                             $posnext=$_.':'.$thiscond;
-		          }
-                          if ($thiscond>$mincond) { $mincond=$thiscond; }
-	              }
-                  } split(/\,/,$hash{'from_'.$rid});
-                  map {
-                      my ($linkid,$condval)=split(/\:/,$_);
-                      if ($condval>=$mincond) {
-		          $next=&addrid($next,$hash{'comesfrom_'.$linkid},
-                                $hash{'condid_'.$hash{'undercond_'.$linkid}});
-                      }
-                  } split(/\,/,$posnext);
+		 foreach my $id (split(/\,/,$hash{'from_'.$rid})) {
+		     my $thiscond=
+      &Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$id}});
+		     if ($thiscond>=$mincond) {
+			 if ($posnext) {
+		             $posnext.=','.$id.':'.$thiscond;
+			 } else {
+                             $posnext=$id.':'.$thiscond;
+			 }
+			 if ($thiscond>$mincond) { $mincond=$thiscond; }
+		     }
+		 } 
+		 foreach my $id (split(/\,/,$posnext)) {
+		     my ($linkid,$condval)=split(/\:/,$id);
+		     if ($condval>=$mincond) {
+			 $next=&addrid($next,$hash{'comesfrom_'.$linkid},
+				       $hash{'condid_'.$hash{'undercond_'.$linkid}});
+		     }
+		 }
                   if ($hash{'is_map_'.$next}) {
 # This jumps to the end of a new map (going down one level)
                       if (
@@ -338,21 +338,21 @@ sub handler {
                   } else {
 # ------------------------ There are multiple possibilities for a next resource
                       $multichoice=1;
-                      map {
-			  $multichoicehash{'src_'.$_}=$hash{'src_'.$_};
-                          $multichoicehash{'title_'.$_}=$hash{'title_'.$_};
-                          $multichoicehash{'type_'.$_}=$hash{'type_'.$_};
-                          (my $first, my $second) = $_ =~ /(\d+).(\d+)/;
-                          my $symbSrc = Apache::lonnet::declutter($hash{'src_'.$_});
-                          $multichoicehash{'symb_'.$_} = 
+		      foreach my $id (@possibilities) {
+			  $multichoicehash{'src_'.$id}=$hash{'src_'.$id};
+                          $multichoicehash{'title_'.$id}=$hash{'title_'.$id};
+                          $multichoicehash{'type_'.$id}=$hash{'type_'.$id};
+                          (my $first, my $second) = $id =~ /(\d+).(\d+)/;
+                          my $symbSrc = Apache::lonnet::declutter($hash{'src_'.$id});
+                          $multichoicehash{'symb_'.$id} = 
                               Apache::lonnet::declutter($hash{'map_id_'.$first}.'___'.
                                                         $second.'___'.$symbSrc);
                                                          
-                          my ($choicemap,$choiceres)=split(/\./,$_);
+                          my ($choicemap,$choiceres)=split(/\./,$id);
 			  my $map=&Apache::lonnet::declutter($hash{'src_'.$choicemap});
-			  my $url=$multichoicehash{'src_'.$_};
+			  my $url=$multichoicehash{'src_'.$id};
                           $cachehash{$map}{$url}=[$url,$choiceres];
-                      } @possibilities;
+                      }
                   }
 	      } else {
 # -------------------------------------------------------------- No place to go
@@ -425,13 +425,13 @@ $lt{'pick'}:
 <table border=2>
 <tr><th>$lt{'titleheader'}</th><th>$lt{'type'}</th></tr>
 ENDSTART
-                     foreach (@possibilities) {
+                     foreach my $id (@possibilities) {
                         $r->print(
                               '<tr><td><a href="'.
-                              $multichoicehash{'src_'.$_}.'?symb=' .
-                                  Apache::lonnet::escape($multichoicehash{'symb_'.$_}).'">'.
-                              $multichoicehash{'title_'.$_}.
-                              '</a></td><td>'.$multichoicehash{'type_'.$_}.
+                              $multichoicehash{'src_'.$id}.'?symb=' .
+                                  Apache::lonnet::escape($multichoicehash{'symb_'.$id}).'">'.
+                              $multichoicehash{'title_'.$id}.
+                              '</a></td><td>'.$multichoicehash{'type_'.$id}.
 			      '</td></tr>');
                      }
                      $r->print('</table>');
@@ -459,9 +459,6 @@ ENDMENU
           }
       } else {
 # ---------------------------------------- No, could not determine where we are
-	  if ( &Apache::lonnet::mod_perl_version() == 2 ) {
-	      &Apache::lonnet::cleanenv();
-	  }
 	  $r->internal_redirect('/adm/ambiguous');
       }
   } else {
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
<html><head>
<title>500 Internal Server Error</title>
</head><body>
<h1>Internal Server Error</h1>
<p>The server encountered an internal error or
misconfiguration and was unable to complete
your request.</p>
<p>Please contact the server administrator at 
 root@localhost to inform them of the time this error occurred,
 and the actions you performed just before this error.</p>
<p>More information about this error may be available
in the server error log.</p>
</body></html>