--- loncom/interface/lonnavmaps.pm	2002/03/15 21:56:11	1.30
+++ loncom/interface/lonnavmaps.pm	2002/09/03 01:23:35	1.41.2.1
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.30 2002/03/15 21:56:11 albertel Exp $
+# $Id: lonnavmaps.pm,v 1.41.2.1 2002/09/03 01:23:35 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -268,96 +268,122 @@ sub astatus {
     return 'p'.$code.$tcode.'"'.$ctext.'"';
 }
 
-# ------------------------------------------------------------ Build page table
 
-sub tracetable {
-    my ($sofar,$rid,$beenhere)=@_;
-    my $further=$sofar;
-    unless ($beenhere=~/\&$rid\&/) {
-	$beenhere.=$rid.'&';  
-	
-	if (defined($hash{'is_map_'.$rid})) {
-	    $sofar++;
-	    my $tprefix='';
-	    if ($hash{'map_type_'.$hash{'map_pc_'.$hash{'src_'.$rid}}} 
-		eq 'sequence') { 
-		$tprefix='h'; 
+sub addresource {
+    my ($resource,$sofar,$rid,$showtypes,$indent,$linkid)=@_;
+    if ($showtypes eq 'problems') {
+	if ($resource!~/\.(problem|exam|quiz|assess|survey|form)$/) {
+	    return;
+	}
+    }
+    my $brepriv=&Apache::lonnet::allowed('bre',$resource);
+    if ($hash{'src_'.$rid}) {
+	if (($brepriv eq '2') || ($brepriv eq 'F')) {
+	    my $pprefix='';
+	    if ($resource=~/\.(problem|exam|quiz|assess|survey|form)$/) {
+		$pprefix=&astatus($rid);
+	    }
+	    $$sofar++;
+	    if ($indent) { $pprefix='i'.$indent.','.$pprefix; }
+	    if ($linkid) { $pprefix='l'.$linkid.','.$pprefix; }
+	    if (defined($rows[$$sofar])) {
+		$rows[$$sofar].='&'.$pprefix.$rid;
 	    } else {
-		#if it's a page we need to still pull out the problems
+		$rows[$$sofar]=$pprefix.$rid;
 	    }
-	    if (defined($rows[$sofar])) {
-		$rows[$sofar].='&'.$tprefix.$rid;
+	}
+    }
+}
+
+sub followlinks () {
+    my ($rid,$sofar,$beenhere,$further,$showtypes,$indent,$linkid)=@_;
+    my $mincond=1;
+    my $next='';
+    foreach (split(/\,/,$hash{'to_'.$rid})) {
+	my $thiscond=
+	    &Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}});
+	if ($thiscond>=$mincond) {
+	    if ($next) {
+		$next.=','.$_.':'.$thiscond;
 	    } else {
-		$rows[$sofar]=$tprefix.$rid;
+		$next=$_.':'.$thiscond;
 	    }
-	    if ((defined($hash{'map_start_'.$hash{'src_'.$rid}})) &&
-		(defined($hash{'map_finish_'.$hash{'src_'.$rid}})) &&
-		($tprefix eq 'h')) {
-		my $frid=$hash{'map_finish_'.$hash{'src_'.$rid}};
-		$sofar=
-		    &tracetable($sofar,$hash{'map_start_'.$hash{'src_'.$rid}},
-				'&'.$frid.'&');
-		$sofar++;
-		if ($hash{'src_'.$frid}) {
-		    my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$frid});
-		    if (($brepriv eq '2') || ($brepriv eq 'F')) {
-			my $pprefix='';
-			if ($hash{'src_'.$frid}=~
-			    /\.(problem|exam|quiz|assess|survey|form)$/) {
-			    $pprefix=&astatus($frid);
-			
-			}
-			if (defined($rows[$sofar])) {
-			    $rows[$sofar].='&'.$pprefix.$frid;
-			} else {
-			    $rows[$sofar]=$pprefix.$frid;
-			}
+	    if ($thiscond>$mincond) { $mincond=$thiscond; }
+	}
+    }
+    my $col=0;
+    &Apache::lonxml::debug("following links -$next-");
+    foreach (split(/\,/,$next)) {
+	my ($nextlinkid,$condval)=split(/\:/,$_);
+	if ($condval>=$mincond) {
+	    my $now=&tracetable($sofar,$hash{'goesto_'.$nextlinkid},
+				$beenhere,$showtypes,$indent,$linkid);
+	    if ($now>$further) {		
+		if ($col>0) {
+		    my $string;
+		    for(my $i=0;$i<$col;$i++) { $string.='&'; }
+		    for(my $i=$further+1;$now-1>$i;$i++) {
+			$rows[$i]=$string.$rows[$i];
 		    }
 		}
+		$further=$now;
 	    }
+	}
+	$col++;
+    }
+    return $further;
+}
+# ------------------------------------------------------------ Build page table
+
+sub tracetable {
+    my ($sofar,$rid,$beenhere,$showtypes,$indent,$linkid)=@_;
+    my $newshowtypes=$showtypes;
+    my $further=$sofar;
+    #$Apache::lonxml::debug=1;
+    &Apache::lonxml::debug("$rid ; $linkid ; $sofar ; $beenhere ; ".$hash{'src_'.$rid});
+    if ($beenhere=~/\&$rid\&/) { return $further; }
+    $beenhere.=$rid.'&';
+
+    if (defined($hash{'is_map_'.$rid})) {
+	$sofar++;
+	my $tprefix='';
+	if ($hash{'map_type_'.$hash{'map_pc_'.$hash{'src_'.$rid}}}
+	    eq 'sequence') {
+	    $tprefix='h';
+	} elsif ($hash{'map_type_'.$hash{'map_pc_'.$hash{'src_'.$rid}}}
+		 eq 'page') {
+	    $tprefix='j';
+	    if ($indent) { $tprefix='i'.$indent.','.$tprefix; }
+	    if ($linkid) { $tprefix='l'.$linkid.','.$tprefix; }
+	    $newshowtypes='problems';
+	    $indent++;
+	    #if in a .page continue to link the encompising .page
+	    if (!$linkid) { $linkid=$rid; }
+	}
+	if (defined($rows[$sofar])) {
+	    $rows[$sofar].='&'.$tprefix.$rid;
 	} else {
-	    $sofar++;
-	    if ($hash{'src_'.$rid}) {
-		my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$rid});
-		if (($brepriv eq '2') || ($brepriv eq 'F')) {
-		    my $pprefix='';
-		    if ($hash{'src_'.$rid}=~
-			/\.(problem|exam|quiz|assess|survey|form)$/) {
-			$pprefix=&astatus($rid);
-		    }
-		    if (defined($rows[$sofar])) {
-			$rows[$sofar].='&'.$pprefix.$rid;
-		    } else {
-			$rows[$sofar]=$pprefix.$rid;
-		    }
-		}
-	    }
+	    $rows[$sofar]=$tprefix.$rid;
 	}
-	
-	if (defined($hash{'to_'.$rid})) {
-	    my $mincond=1;
-	    my $next='';
-	    foreach (split(/\,/,$hash{'to_'.$rid})) {
-		my $thiscond=
-		    &Apache::lonnet::directcondval($hash{'condid_'.$hash{'undercond_'.$_}});
-		if ($thiscond>=$mincond) {
-		    if ($next) {
-			$next.=','.$_.':'.$thiscond;
-		    } else {
-			$next=$_.':'.$thiscond;
-		    }
-		    if ($thiscond>$mincond) { $mincond=$thiscond; }
-		}
-	    }
-	    foreach (split(/\,/,$next)) {
-		my ($linkid,$condval)=split(/\:/,$_);
-		if ($condval>=$mincond) {
-		    my $now=&tracetable($sofar,$hash{'goesto_'.$linkid},$beenhere);
-		    if ($now>$further) { $further=$now; }
-		}
-	    }
+	if ((defined($hash{'map_start_'.$hash{'src_'.$rid}})) &&
+	    (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,$linkid);
+	    &addresource($hash{'src_'.$frid},\$sofar,$frid,$newshowtypes,
+			 $indent,$linkid);
+	    if ($tprefix =~ /j$/) { $indent--; $linkid=''; }
 	}
+    } else {
+	&addresource($hash{'src_'.$rid},\$sofar,$rid,$showtypes,
+		     $indent,$linkid);
     }
+
+    if (defined($hash{'to_'.$rid})) {
+	$further=&followlinks($rid,$sofar,$beenhere,$further,$showtypes,
+			      $indent,$linkid);
+    }
+
     return $further;
 }
 
@@ -385,10 +411,10 @@ sub handler {
     if ($ENV{'request.course.fn'}) {
 	$fn=$ENV{'request.course.fn'};
 	if (-e "$fn.db") {
-	    if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER,0640)) &&
+	    if ((tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) &&
 		(tie(%parmhash,'GDBM_File',
 		     $ENV{'request.course.fn'}.'_parms.db',
-		     &GDBM_READER,0640))) {
+		     &GDBM_READER(),0640))) {
 		$hashtied=1;
 	    }
 	}
@@ -463,13 +489,7 @@ sub handler {
 
 	@rows=();
 
-	&tracetable(0,$firstres,'&'.$lastres.'&');
-	if ($hash{'src_'.$lastres}) {
-	    my $brepriv=&Apache::lonnet::allowed('bre',$hash{'src_'.$lastres});
-	    if (($brepriv eq '2') || ($brepriv eq 'F')) {
-		$rows[$#rows+1]=''.$lastres;
-	    }
-	}
+	&tracetable(0,$firstres,'&','',0);
 
 # ------------------------------------------------------------------ Page parms
 
@@ -482,6 +502,7 @@ sub handler {
 
 	for ($i=0;$i<=$#rows;$i++) {
 	    if ($rows[$i]) {
+		&Apache::lonxml::debug("Row $i is:".$rows[$i]);
 		$contents++;
 		my @colcont=split(/\&/,$rows[$i]);
 		$lcm*=($#colcont+1)/euclid($lcm,($#colcont+1));
@@ -548,8 +569,10 @@ sub handler {
 	    }
 	    $r->print('><script>window.focus();</script>'.
 		      '<img align=right src=/adm/lonIcons/lonlogos.gif>'.
-		      '<h1>Navigate Course Map</h1>'.
-		      "<h3>$date</h3>");
+		      '<h1>Navigate Course Map</h1>');
+	    my $desc=$ENV{'course.'.$ENV{'request.course.id'}.'.description'};
+	    if (defined($desc)) { $r->print("<h2>$desc</h2>\n"); }
+	    $r->print("<h3>$date</h3>\n");
 	    $r->rflush();
 	    $r->print('<img src="/adm/lonMisc/chat.gif"> New discussion since '.
 		      localtime($lastcheck).
@@ -582,16 +605,32 @@ sub handler {
 		    my @colcont=split(/\&/,$rows[$i]);
 		    my $avespan=$lcm/($#colcont+1);
 		    for ($j=0;$j<=$#colcont;$j++) {
+			my $indent;my $indentstr;
+			my $linkid;
 			my $rid=$colcont[$j];
-			my $add='<td>&nbsp;&nbsp;';
+                        $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">';
 			my $hwke='</font>';
+			if ($rid=~/^l(\d+\.\d+),(.+)/) { $linkid=$1; $rid=$2; }
+			if ($rid=~/^i(\d+),(.+)/) { $indent=$1; $rid=$2; }
 			if ($rid=~/^h(.+)/) {
 			    $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\: \(\)\/\,]*)\"(.+)/) {
 			    # sub astatus describes what code/tcode mean
 			    my $code=$1;
@@ -629,17 +668,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">'.
@@ -667,9 +701,23 @@ sub handler {
 				}
 			    }
 			}
-			$r->print($add.'<a href="'.$hash{'src_'.$rid}.
-				  '">'.$hwk.
-				  $hash{'title_'.$rid}.$hwke.'</a>'.$adde);
+			if ($indent) {
+			    my $is="&nbsp;&nbsp;";
+			    for(my $i=-1;$i<$indent;$i++) { $indentstr.=$is; }
+			}
+			if (!$linkid) { $linkid=$rid; }
+                        if ($hash{'randomout_'.$rid}) {
+                            $adde=' <i>(hidden)</i>'.$adde;
+                        }
+			$r->print($add.$indentstr);
+			if ($rid) {
+			    $r->print('<a href="'.$hash{'src_'.$linkid}.
+                                      (($hash{'src_'.$linkid}=~/\?/)?'&':'?').
+                                      'symb='.&Apache::lonnet::escape($symb)
+                                       .'">'.
+				      $hwk.$hash{'title_'.$rid}.$hwke.'</a>');
+			}
+			$r->print($adde);
 		    }
 		    $r->print('</tr>');
 		}