version 1.55, 2002/03/11 21:37:55
|
version 1.56, 2002/04/01 21:26:57
|
Line 197 sub finalizeawards {
|
Line 197 sub finalizeawards {
|
if ($blankcount == ($#_ + 1)) { $result = 'NO_RESPONSE'; } |
if ($blankcount == ($#_ + 1)) { $result = 'NO_RESPONSE'; } |
} |
} |
if ($result eq '' ) { |
if ($result eq '' ) { |
|
foreach $award (@_) { if ($award eq 'MISSING_ANSWER') {$result='MISSING_ANSWER'; last;}} |
|
} |
|
if ($result eq '' ) { |
foreach $award (@_) { if ($award eq 'ERROR') {$result='ERROR'; last;}} |
foreach $award (@_) { if ($award eq 'ERROR') {$result='ERROR'; last;}} |
} |
} |
if ($result eq '' ) { |
if ($result eq '' ) { |