X-Git-Url: https://ruin.nu/git/?a=blobdiff_plain;f=ND%2FWeb%2FPages%2FForum.pm;h=cc15bad0ed0cbc3c1d88545ab3b75c8aaac10162;hb=36b2fb1d5ea4cc4e16b5250af982134fa5d0f4a4;hp=c8aa1205b075de0013c162de33393e585244cbe6;hpb=291bee7f7954b0362c5b58d6d05ff55bbc1eec12;p=ndwebbie.git

diff --git a/ND/Web/Pages/Forum.pm b/ND/Web/Pages/Forum.pm
index c8aa120..cc15bad 100644
--- 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);