--- loncom/interface/lonnavmaps.pm	2002/06/27 14:08:05	1.37
+++ loncom/interface/lonnavmaps.pm	2002/08/12 18:21:42	1.40
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.37 2002/06/27 14:08:05 www Exp $
+# $Id: lonnavmaps.pm,v 1.40 2002/08/12 18:21:42 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;
 	    }
 	}
@@ -710,10 +710,14 @@ 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}.
-                                      '?symb='.&Apache::lonnet::escape($symb)
+                                      (($hash{'src_'.$linkid}=~/\?/)?'&':'?').
+                                      'symb='.&Apache::lonnet::escape($symb)
                                        .'">'.
 				      $hwk.$hash{'title_'.$rid}.$hwke.'</a>');
 			}