version 1.208, 2005/05/10 20:58:38
|
version 1.209, 2005/05/20 18:07:29
|
Line 242 sub check_task_access {
|
Line 242 sub check_task_access {
|
return ($status,$datemsg); |
return ($status,$datemsg); |
} |
} |
my $version=$Apache::lonhomework::history{'resource.version'}; |
my $version=$Apache::lonhomework::history{'resource.version'}; |
if ($Apache::lonhomework::history{"resource.$version.checkedin"}) { |
if ($Apache::lonhomework::history{"resource.$version.checkedin"} && |
if ($Apache::lonhomework::history{"resource.$version.status"} eq 'pass' || |
$Apache::lonhomework::history{"resource.$version.status"} eq 'pass') { |
$Apache::lonhomework::history{"resource.$version.status"} eq 'fail') { |
return ('SHOW_ANSWER'); |
return ('SHOW_ANSWER'); |
|
} |
|
} |
} |
my ($id)=@_; |
my ($id)=@_; |
my @slots=split(':',&Apache::lonnet::EXT("resource.$id.available")); |
my @slots=split(':',&Apache::lonnet::EXT("resource.$id.available")); |
Line 274 sub check_task_access {
|
Line 272 sub check_task_access {
|
&Apache::lonxml::debug("protoctor checked in"); |
&Apache::lonxml::debug("protoctor checked in"); |
$slotstatus='CAN_ANSWER'; |
$slotstatus='CAN_ANSWER'; |
} |
} |
if ( ($slotstatus eq 'NOT_IN_A_SLOT' || $slotstatus eq 'NEEDS_CHECKIN') && |
if ( $slotstatus eq 'NOT_IN_A_SLOT' && |
$Apache::lonhomework::history{"resource.$version.checkedin"}) { |
$Apache::lonhomework::history{"resource.$version.checkedin"}) { |
return ('WAITING_FOR_GRADE'); |
if ($Apache::lonhomework::history{"resource.$version.status"} eq 'fail') { |
|
return ('SHOW_ANSWER'); |
|
} else { |
|
return ('WAITING_FOR_GRADE'); |
|
} |
} |
} |
return ($slotstatus,$datemsg,$slot_name,$returned_slot); |
return ($slotstatus,$datemsg,$slot_name,$returned_slot); |
} |
} |