version 1.122, 2003/05/09 17:01:08
|
version 1.127, 2003/05/14 17:16:20
|
Line 61 BEGIN {
|
Line 61 BEGIN {
|
} |
} |
|
|
sub get_target { |
sub get_target { |
if ( $ENV{'request.state'} eq "published") { |
if (($ENV{'request.state'} eq "published") || |
|
($ENV{'request.state'} eq "uploaded")) { |
if ( defined($ENV{'form.grade_target'} ) |
if ( defined($ENV{'form.grade_target'} ) |
&& ($ENV{'form.grade_target'} eq 'tex')) { |
&& ($ENV{'form.grade_target'} eq 'tex')) { |
return ($ENV{'form.grade_target'}); |
return ($ENV{'form.grade_target'}); |
Line 214 sub check_access {
|
Line 215 sub check_access {
|
if ( $tries eq '' ) { $tries = '0'; } |
if ( $tries eq '' ) { $tries = '0'; } |
if ( $maxtries eq '' ) { $maxtries = '2'; } |
if ( $maxtries eq '' ) { $maxtries = '2'; } |
if ($tries >= $maxtries) { $status = 'CANNOT_ANSWER'; } |
if ($tries >= $maxtries) { $status = 'CANNOT_ANSWER'; } |
if($Apache::lonhomework::history{"resource.$id.solved"}=~/^correct/) { |
if($Apache::lonhomework::history{"resource.$id.solved"}=~/^correct/ |
|
&& lc($Apache::lonhomework::problemstatus) ne 'no') { |
$status = 'CANNOT_ANSWER'; |
$status = 'CANNOT_ANSWER'; |
} |
} |
} |
} |
Line 284 sub showhashsubset {
|
Line 286 sub showhashsubset {
|
|
|
sub setuppermissions { |
sub setuppermissions { |
$Apache::lonhomework::browse= &Apache::lonnet::allowed('bre',$ENV{'request.filename'}); |
$Apache::lonhomework::browse= &Apache::lonnet::allowed('bre',$ENV{'request.filename'}); |
$Apache::lonhomework::viewgrades=&Apache::lonnet::allowed('vgr',$ENV{'request.course.id'}); |
my $viewgrades = &Apache::lonnet::allowed('vgr',$ENV{'request.course.id'}); |
|
if (! $viewgrades && |
|
exists($ENV{'request.course.sec'}) && |
|
$ENV{'request.course.sec'} !~ /^\s*$/) { |
|
$viewgrades = &Apache::lonnet::allowed('vgr',$ENV{'request.course.id'}. |
|
'/'.$ENV{'request.course.sec'}); |
|
} |
|
$Apache::lonhomework::viewgrades = $viewgrades; |
return '' |
return '' |
} |
} |
|
|