my ($target) = $dbh->selectrow_array($findplanet,undef
,$2,$3,$4,$t) or die $dbh->errstr;
die "No target: $2:$3:$4" unless defined $target;
- my $id = addfleet($1,$mission,undef,$planet,$target,$5
+ my $id = addfleet($1,$mission,undef,$target,$planet,$5
,$eta,$back,$6, ($x == $2 && $y == $3));
$fleetscan->execute($id,$scan->{id}) or die $dbh->errstr;
}
$total += $2;
push @ships, [$1,$2];
}
- $amount = $total if not defined $amount && defined $ships;
+ $amount = $total if (!defined $amount) && defined $ships;
my $id = $dbh->selectrow_array($addfleet,undef,$name,$mission,$sender
,$target,$tick, $eta, $back, $amount,$ingal) or die $dbh->errstr;
for my $s (@ships){