|
version 1.244.2.2, 2019/10/23 22:35:22
|
version 1.244.4.1, 2020/06/03 18:48:34
|
|
Line 1343 basically undef and 0 (both false) mean
|
Line 1343 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 both attempted and still has tries and |
a return of 0 means it is attmpted and wrong but still has tries |
| 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 exceeded maximum number of tries |
a return of 2 means they have exceed maximum number of tries |
| a return of 3 means it is after the answer date |
a return of 3 means it after the answer date |
| |
|
| =cut |
=cut |
| |
|
|
Line 1365 sub check_status {
|
Line 1363 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/) { |
if ($status =~ /^correct/) { return 1; } |
| 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