version 1.28, 2001/02/19 21:02:59
|
version 1.29, 2001/03/21 18:24:36
|
Line 130 sub finalizeawards {
|
Line 130 sub finalizeawards {
|
if ($result eq '' ) { |
if ($result eq '' ) { |
foreach $award (@_) { if ($award eq 'ERROR') {$result='ERROR'; last;}} |
foreach $award (@_) { if ($award eq 'ERROR') {$result='ERROR'; last;}} |
} |
} |
|
if ($result eq '' ) { |
|
foreach $award (@_) { if ($award eq 'NO_RESPONSE') {$result='NO_RESPONSE'; last;} } |
|
} |
|
|
if ($result eq '' ) { |
if ($result eq '' ) { |
foreach $award (@_) { |
foreach $award (@_) { |