forum threads got uid linked to them

[ndwebbie.git] / ND / Web / Forum.pm

diff --git a/ND/Web/Forum.pm b/ND/Web/Forum.pm
index cbeb747083524a5240cb457af4c3867629b4b55c..6551518bf503967545dbcae446f6fa98ead55576 100644 (file)
--- a/ND/Web/Forum.pm
+++ b/ND/Web/Forum.pm
@@ -83,9 +83,9 @@ sub addForumPost {
 sub addForumThread {
        my ($dbh,$board,$uid,$subject) = @_;
 
-       my $insert = $dbh->prepare(q{INSERT INTO forum_threads (fbid,subject) VALUES($1,$2)});
+       my $insert = $dbh->prepare(q{INSERT INTO forum_threads (fbid,subject,uid) VALUES($1,$2,$3)});
 
-       if ($insert->execute($board->{id},escapeHTML($subject))){
+       if ($insert->execute($board->{id},escapeHTML($subject),$ND::UID)){
                my $id = $dbh->last_insert_id(undef,undef,undef,undef,"forum_threads_ftid_seq");
                return $dbh->selectrow_hashref(q{SELECT ftid AS id, subject, $2::boolean AS post FROM forum_threads WHERE ftid = $1}
                        ,undef,$id,$board->{post})