stuff

diff --git a/ND/Web/Pages/Forum.pm b/ND/Web/Pages/Forum.pm
index c8aa1205b075de0013c162de33393e585244cbe6..cc15bad0ed0cbc3c1d88545ab3b75c8aaac10162 100644 (file)
--- a/ND/Web/Pages/Forum.pm
+++ b/ND/Web/Pages/Forum.pm
@@ -23,6 +23,7 @@ use warnings;
 use ND::Web::Forum;
 use CGI qw/:standard/;
 use ND::Web::Include;
+use ND::Include;
 
 $ND::PAGES{forum} = {parse => \&parse, process => \&process, render=> \&render};
 
@@ -96,7 +97,10 @@ sub render {
                        my $moveThread = $DBH->prepare(q{UPDATE forum_threads SET fbid = $1 WHERE ftid = $2 AND fbid = $3});
                        for my $param (param()){
                                if ($param =~ /t:(\d+)/){
-                                       $moveThread->execute(param('board'),$1,$board->{id}) or $ND::ERROR .= p($DBH->errstr)
+                                       $moveThread->execute(param('board'),$1,$board->{id}) or $ND::ERROR .= p($DBH->errstr);
+                                       if ($moveThread->rows > 0){
+                                               log_message $ND::UID, qq{Moved thread: $1 to board: $board->{id}};
+                                       }
                                }
                        }
                        $DBH->commit or $ND::ERROR .= p($DBH->errstr);

diff --git a/ND/Web/Pages/Main.pm b/ND/Web/Pages/Main.pm
index 3e8d7515c0f4f60df352eb303a809bd26815188e..29f7c51addbf29a9cd9234ebb007cf1fd2f4331d 100644 (file)
--- a/ND/Web/Pages/Main.pm
+++ b/ND/Web/Pages/Main.pm
@@ -19,7 +19,7 @@
 
 package ND::Web::Pages::Main;
 use strict;
-use warnings FATAL => 'all';
+use warnings;
 use CGI qw/:standard/;
 use ND::Include;
 use ND::Web::Include;