|
version 1.53, 2002/03/01 00:23:04
|
version 1.54, 2002/03/08 19:55:00
|
|
Line 185 sub finalizeawards {
|
Line 185 sub finalizeawards {
|
| my $award; |
my $award; |
| if ($#_ == '-1') { $result = "NO_RESPONSE"; } |
if ($#_ == '-1') { $result = "NO_RESPONSE"; } |
| if ($result eq '' ) { |
if ($result eq '' ) { |
| foreach $award (@_) { if ($award eq '') {$result='MISSING_ANSWER'; last;}} |
my $blankcount; |
| |
foreach $award (@_) { |
| |
if ($award eq '') { |
| |
$result='MISSING_ANSWER'; |
| |
$blankcount++; |
| |
} |
| |
} |
| |
if ($blankcount == ($#_ + 1)) { $result = 'NO_RESPONSE'; } |
| } |
} |
| if ($result eq '' ) { |
if ($result eq '' ) { |
| foreach $award (@_) { if ($award eq 'ERROR') {$result='ERROR'; last;}} |
foreach $award (@_) { if ($award eq 'ERROR') {$result='ERROR'; last;}} |
|
Line 355 sub grade {
|
Line 362 sub grade {
|
| foreach $response (@Apache::inputtags::responselist) { |
foreach $response (@Apache::inputtags::responselist) { |
| &Apache::lonxml::debug("looking for response.$id.$response.awarddetail"); |
&Apache::lonxml::debug("looking for response.$id.$response.awarddetail"); |
| my $value=$Apache::lonhomework::results{"resource.$id.$response.awarddetail"}; |
my $value=$Apache::lonhomework::results{"resource.$id.$response.awarddetail"}; |
| if ( $value ne '' ) { |
&Apache::lonxml::debug("keeping $value from $response for $id"); |
| &Apache::lonxml::debug("keeping $value from $response for $id"); |
push (@awards,$value); |
| push (@awards,$value); |
|
| } else { |
|
| &Apache::lonxml::debug("skipping $value from $response for $id"); |
|
| } |
|
| } |
} |
| my $finalaward = &finalizeawards(@awards); |
my $finalaward = &finalizeawards(@awards); |
| my $previously_used; |
my $previously_used; |
![[BACK]](/icons/back.gif){kind=icon}
Return to inputtags.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework