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