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.39, 2002/07/25 16:55:53
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);
Line 711 sub handler {	Line 710 sub handler {
for(my $i=-1;$i<$indent;$i++) { $indentstr.=$is; }	for(my $i=-1;$i<$indent;$i++) { $indentstr.=$is; }
}	}
if (!$linkid) { $linkid=$rid; }	if (!$linkid) { $linkid=$rid; }
	if ($hash{'randomout_'.$rid}) {
	$adde=' <i>(hidden)</i>'.$adde;
	}
$r->print($add.$indentstr);	$r->print($add.$indentstr);
if ($rid) {	if ($rid) {
$r->print('<a href="'.$hash{'src_'.$linkid}.	$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>');	$hwk.$hash{'title_'.$rid}.$hwke.'</a>');
}	}