- $DBH->begin_work;
- my $fleet = $DBH->prepare("SELECT id FROM fleets WHERE uid = ? AND fleet = 0");
- my ($id) = $DBH->selectrow_array($fleet,undef,$ND::UID);
- unless ($id){
- my $insert = $DBH->prepare(q{INSERT INTO fleets (uid,target,mission,landing_tick,fleet,eta,back) VALUES (?,?,'Full fleet',0,0,0,0)});
- $insert->execute($ND::UID,$self->{PLANET});
- ($id) = $DBH->selectrow_array($fleet,undef,$ND::UID);
- }
- my $delete = $DBH->prepare("DELETE FROM fleet_ships WHERE fleet = ?");
- my $insert = $DBH->prepare('INSERT INTO fleet_ships (fleet,ship,amount) VALUES (?,?,?)');
- $fleet = param('fleet');