|
version 1.245, 2018/03/30 23:50:13
|
version 1.246, 2018/06/06 18:39:55
|
|
Line 1348 basically undef and 0 (both false) mean
|
Line 1348 basically undef and 0 (both false) mean
|
| and all true values mean that they can't do any more work |
and all true values mean that they can't do any more work |
| |
|
| a return of undef means it is unattempted |
a return of undef means it is unattempted |
| a return of 0 means it is attmpted and wrong but still has tries |
a return of 0 means it is both attempted and still has tries and |
| |
is wrong or is only partially correct, and retries |
| |
are allowed. |
| a return of 1 means it is marked correct |
a return of 1 means it is marked correct |
| a return of 2 means they have exceed maximum number of tries |
a return of 2 means they have exceeded maximum number of tries |
| a return of 3 means it after the answer date |
a return of 3 means it is after the answer date |
| |
|
| =cut |
=cut |
| |
|
|
Line 1368 sub check_status {
|
Line 1370 sub check_status {
|
| return 3; |
return 3; |
| } |
} |
| my $status=&Apache::lonnet::EXT("user.resource.resource.$id.solved"); |
my $status=&Apache::lonnet::EXT("user.resource.resource.$id.solved"); |
| if ($status =~ /^correct/) { return 1; } |
if ($status =~ /^correct/) { |
| |
my $awarded=&Apache::lonnet::EXT("user.resource.resource.$id.awarded"); |
| |
my $retrypartial=&Apache::lonnet::EXT("resource.$id.retrypartial"); |
| |
unless (($retrypartial =~ /^1|on|yes$/) && ($awarded <1)) { |
| |
return 1; |
| |
} |
| |
} |
| if (!$status) { return undef; } |
if (!$status) { return undef; } |
| my $maxtries=&Apache::lonnet::EXT("resource.$id.maxtries"); |
my $maxtries=&Apache::lonnet::EXT("resource.$id.maxtries"); |
| if ($maxtries eq '') { $maxtries=2; } |
if ($maxtries eq '') { $maxtries=2; } |
![[BACK]](/icons/back.gif){kind=icon}
Return to response.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework