--- loncom/interface/lonnavmaps.pm 2002/09/03 01:23:35 1.41.2.1 +++ loncom/interface/lonnavmaps.pm 2002/08/18 21:45:41 1.42 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Navigate Maps Handler # -# $Id: lonnavmaps.pm,v 1.41.2.1 2002/09/03 01:23:35 albertel Exp $ +# $Id: lonnavmaps.pm,v 1.42 2002/08/18 21:45:41 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -434,8 +434,10 @@ sub handler { &Apache::loncommon::no_cache($r); $r->send_http_header; - my $firstres=$hash{'map_start_/res/'.$ENV{'request.course.uri'}}; - my $lastres=$hash{'map_finish_/res/'.$ENV{'request.course.uri'}}; + my $firstres=$hash{'map_start_'. + &Apache::lonnet::clutter($ENV{'request.course.uri'})}; + my $lastres=$hash{'map_finish_'. + &Apache::lonnet::clutter($ENV{'request.course.uri'})}; if (!(($firstres) && ($lastres))) { $r->print('Coursemap undefined.'); } else { @@ -489,7 +491,13 @@ sub handler { @rows=(); - &tracetable(0,$firstres,'&','',0); + &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; + } + } # ------------------------------------------------------------------ Page parms