for my $param (param()){
if ($param =~ /^change:(\d+)$/){
if($updatefleets->execute($ND::UID,$1)){
for my $param (param()){
if ($param =~ /^change:(\d+)$/){
if($updatefleets->execute($ND::UID,$1)){
for my $param (param()){
if ($param =~ /^change:(\d+)$/){
if($updatefleets->execute(param("back:$1"),$ND::UID,$1)){
for my $param (param()){
if ($param =~ /^change:(\d+)$/){
if($updatefleets->execute(param("back:$1"),$ND::UID,$1)){
my $query = $DBH->prepare('UPDATE users SET sms = ? WHERE uid = ?');
$query->execute(escapeHTML(param('sms')),$ND::UID);
}
my $query = $DBH->prepare('UPDATE users SET sms = ? WHERE uid = ?');
$query->execute(escapeHTML(param('sms')),$ND::UID);
}
my $query = $DBH->prepare(q{
UPDATE users SET planet =
(SELECT id from current_planet_stats where x = ? AND y = ? AND z = ?)
my $query = $DBH->prepare(q{
UPDATE users SET planet =
(SELECT id from current_planet_stats where x = ? AND y = ? AND z = ?)