--- 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=' (hidden)'.$adde;
+ }
$r->print($add.$indentstr);
if ($rid) {
$r->print(''.
$hwk.$hash{'title_'.$rid}.$hwke.'');
}