--- loncom/interface/lonnavmaps.pm	2002/03/16 09:11:01	1.33
+++ 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.33 2002/03/16 09:11:01 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
 #
@@ -411,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;
 	    }
 	}
@@ -489,13 +489,7 @@ sub handler {
 
 	@rows=();
 
-	&tracetable(0,$firstres,'&'.$lastres.'&','',0);
-	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
 
@@ -575,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).
@@ -612,6 +608,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">';
@@ -622,6 +623,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\: \(\)\/\,]*)\"(.+)/) {
@@ -667,11 +674,6 @@ sub handler {
 			    $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">'.
@@ -704,9 +706,15 @@ sub handler {
 			    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}.'">'.
+			    $r->print('<a href="'.$hash{'src_'.$linkid}.
+                                      (($hash{'src_'.$linkid}=~/\?/)?'&':'?').
+                                      'symb='.&Apache::lonnet::escape($symb)
+                                       .'">'.
 				      $hwk.$hash{'title_'.$rid}.$hwke.'</a>');
 			}
 			$r->print($adde);