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; |