loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.36, 2002/06/24 14:28:10	version 1.37, 2002/06/27 14:08:05
Line 278 sub addresource {	Line 278 sub addresource {
}	}
my $brepriv=&Apache::lonnet::allowed('bre',$resource);	my $brepriv=&Apache::lonnet::allowed('bre',$resource);
if ($hash{'src_'.$rid}) {	if ($hash{'src_'.$rid}) {
if ((($brepriv eq '2') && (!$hash{'randomout_'.$rid}))	if (($brepriv eq '2') \|\| ($brepriv eq 'F')) {
\|\| ($brepriv eq 'F')) {
my $pprefix='';	my $pprefix='';
if ($resource=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {	if ($resource=~/\.(problem\|exam\|quiz\|assess\|survey\|form)$/) {
$pprefix=&astatus($rid);	$pprefix=&astatus($rid);