--- loncom/interface/lonnavmaps.pm	2002/02/11 18:59:36	1.25
+++ loncom/interface/lonnavmaps.pm	2002/02/28 19:45:14	1.27
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.25 2002/02/11 18:59:36 albertel Exp $
+# $Id: lonnavmaps.pm,v 1.27 2002/02/28 19:45:14 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -186,7 +186,6 @@ sub astatus {
     $rid=~/(\d+)\.(\d+)/;
     my $symb=&Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'.
 	&Apache::lonnet::declutter($hash{'src_'.$rid});
-    $Apache::lonxml::debug=1;
     my %duedate=();
     my %opendate=();
     my %answerdate=();
@@ -331,7 +330,7 @@ sub tracetable {
        if (defined($hash{'to_'.$rid})) {
 	  my $mincond=1;
           my $next='';
-          map {
+          foreach (split(/\,/,$hash{'to_'.$rid})) {
               my $thiscond=
       &Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}});
               if ($thiscond>=$mincond) {
@@ -342,14 +341,14 @@ sub tracetable {
 		  }
                   if ($thiscond>$mincond) { $mincond=$thiscond; }
 	      }
-          } split(/\,/,$hash{'to_'.$rid});
-          map {
+          }
+          foreach (split(/\,/,$next)) {
               my ($linkid,$condval)=split(/\:/,$_);
               if ($condval>=$mincond) {
                 my $now=&tracetable($sofar,$hash{'goesto_'.$linkid},$beenhere);
                 if ($now>$further) { $further=$now; }
 	      }
-          } split(/\,/,$next);
+          }
 
        }
     }
@@ -413,11 +412,11 @@ sub handler {
             $courserdatas{$cid.'.last_cache'}=time;
          }
       }
-      map {
+      foreach (split(/\&/,$courserdatas{$cid})) {
          my ($name,$value)=split(/\=/,$_);
          $courseopt{$userprefix.&Apache::lonnet::unescape($name)}=
                     &Apache::lonnet::unescape($value);
-      } split(/\&/,$courserdatas{$cid});
+      }
 # --------------------------------------------------- Get userdata (if present)
       unless
         ((time-$userrdatas{$uname.'___'.$udom.'.last_cache'})<240) {
@@ -428,11 +427,11 @@ sub handler {
 	     $userrdatas{$uname.'___'.$udom.'.last_cache'}=time;
          }
       }
-      map {
+      foreach (split(/\&/,$userrdatas{$uname.'___'.$udom})) {
          my ($name,$value)=split(/\=/,$_);
          $useropt{$userprefix.&Apache::lonnet::unescape($name)}=
 	          &Apache::lonnet::unescape($value);
-      } split(/\&/,$userrdatas{$uname.'___'.$udom});
+      }
     }
 
                   @rows=();