--- loncom/interface/lonnavmaps.pm 2002/03/26 23:14:39 1.35 +++ loncom/interface/lonnavmaps.pm 2002/06/24 14:28:10 1.36 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Navigate Maps Handler # -# $Id: lonnavmaps.pm,v 1.35 2002/03/26 23:14:39 www Exp $ +# $Id: lonnavmaps.pm,v 1.36 2002/06/24 14:28:10 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -278,7 +278,8 @@ sub addresource { } my $brepriv=&Apache::lonnet::allowed('bre',$resource); if ($hash{'src_'.$rid}) { - if (($brepriv eq '2') || ($brepriv eq 'F')) { + if ((($brepriv eq '2') && (!$hash{'randomout_'.$rid})) + || ($brepriv eq 'F')) { my $pprefix=''; if ($resource=~/\.(problem|exam|quiz|assess|survey|form)$/) { $pprefix=&astatus($rid); @@ -612,6 +613,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='