--- loncom/interface/lonnavmaps.pm	2002/03/16 08:56:53	1.32
+++ loncom/interface/lonnavmaps.pm	2002/07/08 20:27:10	1.38
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.32 2002/03/16 08:56:53 albertel Exp $
+# $Id: lonnavmaps.pm,v 1.38 2002/07/08 20:27:10 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -338,7 +338,6 @@ sub followlinks () {
 sub tracetable {
     my ($sofar,$rid,$beenhere,$showtypes,$indent,$linkid)=@_;
     my $newshowtypes=$showtypes;
-    my $newlinkid=$linkid;
     my $further=$sofar;
     #$Apache::lonxml::debug=1;
     &Apache::lonxml::debug("$rid ; $linkid ; $sofar ; $beenhere ; ".$hash{'src_'.$rid});
@@ -355,9 +354,11 @@ sub tracetable {
 		 eq 'page') {
 	    $tprefix='j';
 	    if ($indent) { $tprefix='i'.$indent.','.$tprefix; }
+	    if ($linkid) { $tprefix='l'.$linkid.','.$tprefix; }
 	    $newshowtypes='problems';
 	    $indent++;
-	    $newlinkid=$rid;
+	    #if in a .page continue to link the encompising .page
+	    if (!$linkid) { $linkid=$rid; }
 	}
 	if (defined($rows[$sofar])) {
 	    $rows[$sofar].='&'.$tprefix.$rid;
@@ -368,10 +369,10 @@ sub tracetable {
 	    (defined($hash{'map_finish_'.$hash{'src_'.$rid}}))) {
 	    my $frid=$hash{'map_finish_'.$hash{'src_'.$rid}};
 	    $sofar=&tracetable($sofar,$hash{'map_start_'.$hash{'src_'.$rid}},
-			       '&'.$frid.'&',$newshowtypes,$indent,$newlinkid);
+			       '&'.$frid.'&',$newshowtypes,$indent,$linkid);
 	    &addresource($hash{'src_'.$frid},\$sofar,$frid,$newshowtypes,
-			 $indent,$newlinkid);
-	    if ($tprefix =~ /j$/) { $indent--; }
+			 $indent,$linkid);
+	    if ($tprefix =~ /j$/) { $indent--; $linkid=''; }
 	}
     } else {
 	&addresource($hash{'src_'.$rid},\$sofar,$rid,$showtypes,
@@ -611,6 +612,11 @@ sub handler {
 			my $indent;my $indentstr;
 			my $linkid;
 			my $rid=$colcont[$j];
+                        $rid=~/(\d+)\.(\d+)$/;
+			my $src=
+			   &Apache::lonnet::declutter($hash{'src_'.$1.'.'.$2});
+			my $symb=
+	  &Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'.$src;
 			my $add='<td>';
 			my $adde='</td>';
 			my $hwk='<font color="#223322">';
@@ -621,6 +627,12 @@ sub handler {
 			    $rid=$1;
 			    $add='<th bgcolor="#AAFF55"><a name="'.$rid.'">';
 			    $adde='</th>';
+                            if (($ENV{'user.adv'}) && 
+				($parmhash{$symb.'.0.parameter_randompick'})) {
+                               $adde=' (randomly select '.
+				   $parmhash{$symb.'.0.parameter_randompick'}.
+                                   ')</th>';
+                            }
 			}
 			if ($rid=~/^j(.+)/) { $rid=$1; }
 			if ($rid=~/^p(\d)(\d)\"([\w\: \(\)\/\,]*)\"(.+)/) {
@@ -660,17 +672,12 @@ sub handler {
 				$hwke='</b> ('.$ctext.')</font>';
 			    }
 			}
-			if ($hash{'src_'.$rid} eq $currenturl) {
+			if ($rid && $hash{'src_'.$rid} eq $currenturl) {
 			    $add=$add.'<a name="curloc"></a>'.
 				'<font color=red size=+2><b>&gt; </b></font>';
 			    $adde=
 				'<font color=red size=+2><b> &lt;</b></font>'.$adde;
 			}
-			my $src=
-			    &Apache::lonnet::declutter($hash{'src_'.$rid});
-			$rid=~/^(\d+)\.(\d+)$/;
-			my $symb=
-			    &Apache::lonnet::declutter($hash{'map_id_'.$1}).'___'.$2.'___'.$src;
 			if ($discussiontimes{$symb}>$lastcheck) {
 			    $adde=
 				'<img border=0 src="/adm/lonMisc/chat.gif">'.
@@ -703,9 +710,17 @@ sub handler {
 			    for(my $i=-1;$i<$indent;$i++) { $indentstr.=$is; }
 			}
 			if (!$linkid) { $linkid=$rid; }
-			$r->print($add.$indentstr.
-				  '<a href="'.$hash{'src_'.$linkid}.'">'.$hwk.
-				  $hash{'title_'.$rid}.$hwke.'</a>'.$adde);
+                        if ($hash{'randomout_'.$rid}) {
+                            $adde=' <i>(hidden)</i>'.$adde;
+                        }
+			$r->print($add.$indentstr);
+			if ($rid) {
+			    $r->print('<a href="'.$hash{'src_'.$linkid}.
+                                      '?symb='.&Apache::lonnet::escape($symb)
+                                       .'">'.
+				      $hwk.$hash{'title_'.$rid}.$hwke.'</a>');
+			}
+			$r->print($adde);
 		    }
 		    $r->print('</tr>');
 		}