+ if (param('cgov')){
+ my $value = escapeHTML(param('gov'));
+ if ($DBH->do(q{UPDATE planets SET gov = ? WHERE id =?}
+ ,undef,$value,$planet->{id})){
+ intel_log $ND::UID,$planet->{id},"Set government to: $value";
+ $planet->{gov} = $value;
+ }else{
+ $error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
+ }
+ }