Possible to mark threads unread from a specific post

[ndwebbie.git] / lib / NDWeb / Controller / Forum.pm

diff --git a/lib/NDWeb/Controller/Forum.pm b/lib/NDWeb/Controller/Forum.pm
index def82bb5dc12c3690af46e406d884da115a1961c..bf7dc3ca8f11b76788ef52aa4cc8bbc2b4e72582 100644 (file)
--- a/lib/NDWeb/Controller/Forum.pm
+++ b/lib/NDWeb/Controller/Forum.pm
@@ -232,7 +232,7 @@ sub findPosts :Private {
        my $dbh = $c->model;
 
        my $posts = $dbh->prepare(q{
-               SELECT u.uid,u.username,date_trunc('seconds',fp.time::timestamp) AS time
+               SELECT fpid,u.uid,u.username,date_trunc('seconds',fp.time::timestamp) AS time
                        ,fp.message,COALESCE(fp.time > ftv.time,TRUE) AS unread
                FROM forum_threads ft
                        JOIN forum_posts fp USING (ftid)
@@ -308,6 +308,22 @@ DELETE FROM forum_thread_visits WHERE uid = $1 AND ftid = $2
        $c->res->redirect($c->uri_for('board',$fbid));
 }
 
+sub markPostAsUnread : Local {
+       my ( $self, $c, $post ) = @_;
+       my $dbh = $c->model;
+
+       my ($fbid) = $dbh->selectrow_array(q{
+SELECT fbid FROM forum_threads JOIN forum_posts USING (ftid) WHERE fpid = $1
+               },undef, $post);
+
+       $dbh->do(q{
+UPDATE forum_thread_visits ftv SET time = (fp.time - interval '1 second')
+FROM forum_posts fp
+WHERE ftv.uid = $1 AND fp.fpid = $2 AND fp.ftid = ftv.ftid
+               }, undef, $c->user->id, $post);
+       $c->res->redirect($c->uri_for('board',$fbid));
+}
+
 sub moveThreads : Local {
        my ( $self, $c, $board ) = @_;
        my $dbh = $c->model;