my $id = addfleet($1,$2,$3,$planet,undef,$tick,undef,undef,$4);
$fleetscan->execute($id,$scan->{id}) or die $dbh->errstr;
}
my $id = addfleet($1,$2,$3,$planet,undef,$tick,undef,undef,$4);
$fleetscan->execute($id,$scan->{id}) or die $dbh->errstr;
}
}
$parsedscan->execute($tick,$type,$planet,$scan->{id}) or die $dbh->errstr;
#$dbh->rollback;
}
$parsedscan->execute($tick,$type,$planet,$scan->{id}) or die $dbh->errstr;
#$dbh->rollback;