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>'); |
} |
} |