sub dbinput_pla {
	my ($pid, $uni, $G, $s, $P, $moon, $size, $name, $devel) = @_;
	my $sth = $dbh->prepare("select from planets where id = ?;");
	$sth->execute($pid);
if ($sth->rows > 0) {
			my $sth = $dbh->prepare("update planets set name = ?, devel = ? where id = ?;");
			$sth->execute($name, $devel, $pid);
		} else {
			my $sth = $dbh->prepare("insert ino planets set pid = ?, uni = ?, $G = ?, S = ?, $P = ?, moon = ?, $size = ?, name = ?, devel = ?;");
			$sth->execute($pid, $uni, $G, $s, $P, $moon, $size, $name, $devel);
		}
	}
}