+ $DBH->commit or warn $DBH->errstr;
+ }elsif ($alliance && defined param('cmd') && param ('cmd') eq 'remove_all'){
+ $DBH->begin_work;
+ my ($coords) = $DBH->selectrow_array(q{SELECT CONCAT(coords(x,y,z) || ' ')
+ FROM current_planet_stats where alliance_id = $1
+ },undef,$alliance->{id});
+ my $removeplanets = $DBH->prepare(q{
+ UPDATE planets SET alliance_id = NULL
+ WHERE alliance_id = $1;
+ }) or warn $DBH->errstr;
+ if ($removeplanets->execute($alliance->{id})){
+ log_message $ND::UID, "HC cleaned alliance: $alliance->{id} ($alliance->{name})\n\n$coords";
+ $DBH->commit or warn $DBH->errstr;
+ }else{
+ warn $DBH->errstr;
+ $DBH->rollback;
+ }