my ($id) = $ND::DBH->selectrow_array($findid,undef,$x,$y,$z);
my $rv = $ND::DBH->do(q{UPDATE planets SET planet_status = 'Hostile' WHERE id = $1},undef,$id);
if ($rv == 1){
my ($id) = $ND::DBH->selectrow_array($findid,undef,$x,$y,$z);
my $rv = $ND::DBH->do(q{UPDATE planets SET planet_status = 'Hostile' WHERE id = $1},undef,$id);
if ($rv == 1){