use strict;
use warnings FATAL => 'all';
+use ND::Include;
$ND::TEMPLATE->param(TITLE => 'Main Page');
for my $param (param()){
if ($param =~ /^change:(\d+)$/){
if($updatefleets->execute($ND::UID,$1)){
- $ND::LOG->execute($ND::UID,"Member recalled fleet $1");
+ log_message $ND::UID,"Member recalled fleet $1";
}else{
$error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
}
for my $param (param()){
if ($param =~ /^change:(\d+)$/){
if($updatefleets->execute(param("back:$1"),$ND::UID,$1)){
- $ND::LOG->execute($ND::UID,"Member set fleet $1 to be back tick: ".param("back:$1"));
+ log_message $ND::UID,"Member set fleet $1 to be back tick: ".param("back:$1");
}else{
$error .= "<p> Something went wrong: ".$DBH->errstr."</p>";
}