my $value = escapeHTML(param('status'));
if ($DBH->do(q{UPDATE planets SET planet_status = ? WHERE id =?}
,undef,$value,$planet->{id})){
my $value = escapeHTML(param('status'));
if ($DBH->do(q{UPDATE planets SET planet_status = ? WHERE id =?}
,undef,$value,$planet->{id})){