From: Michael Andreen <harv@ruin.nu>
Date: Mon, 3 Nov 2008 16:37:18 +0000 (+0100)
Subject: Make it possible to move a thread from the thread view
X-Git-Url: https://ruin.nu/git/?p=ndwebbie.git;a=commitdiff_plain;h=c66b1b9074d880fb13a825bc75c1bc842ec65f75

Make it possible to move a thread from the thread view
---

diff --git a/lib/NDWeb/Controller/Forum.pm b/lib/NDWeb/Controller/Forum.pm
index f4fa3c0..1a79624 100644
--- a/lib/NDWeb/Controller/Forum.pm
+++ b/lib/NDWeb/Controller/Forum.pm
@@ -182,33 +182,10 @@ sub board : Local {
 	}
 	$c->stash(threads => \@threads);
 
-	if ($board->{moderate}){
-		my $categories = $dbh->prepare(q{SELECT fcid,category FROM forum_categories ORDER BY fcid});
-		my $boards = $dbh->prepare(q{SELECT fb.fbid,fb.board, bool_or(fa.post) AS post
-			FROM forum_boards fb NATURAL JOIN forum_access fa
-			WHERE fb.fcid = $1 AND
-				gid IN (SELECT groups($2))
-			GROUP BY fb.fbid,fb.board
-			ORDER BY fb.fbid
-		});
-		$categories->execute;
-		my @categories;
-		while (my $category = $categories->fetchrow_hashref){
-			$boards->execute($category->{fcid},$c->stash->{UID});
-
-			my @boards;
-			while (my $b = $boards->fetchrow_hashref){
-				next if (not $b->{post} or $b->{fbid} == $board->{fbid});
-				push @boards,$b;
-			}
-			$category->{boards} = \@boards;
-			push @categories,$category if @boards;
-		}
-		$c->stash(categories => \@categories);
-	}
+	$c->forward('listModeratorBoards', [$board->{fbid}]) if $board->{moderate};
+	
 }
 
-
 sub thread : Local {
 	my ( $self, $c, $thread ) = @_;
 	my $dbh = $c->model;
@@ -222,9 +199,12 @@ sub thread : Local {
 		JOIN forum_priv_access fta USING (uid) WHERE fta.ftid = $1});
 	$query->execute($thread);
 	$c->stash(access => $query->fetchall_arrayref({}) );
-	$c->forward('findUsers') if $c->stash->{thread}->{moderate};
 	$c->forward('findPosts');
 	$c->forward('markThreadAsRead') if $c->user_exists;
+	if ($c->stash->{thread}->{moderate}) {
+		$c->forward('findUsers');
+		$c->forward('listModeratorBoards', [$c->stash->{thread}->{fbid}]);
+	}
 }
 
 sub findPosts :Private {
@@ -535,6 +515,35 @@ sub insertPost : Private {
 	$insert->execute($thread,html_escape($c->req->param('message')),$c->stash->{UID});
 }
 
+sub listModeratorBoards : Private {
+	my ( $self, $c, $fbid ) = @_;
+	my $dbh = $c->model;
+
+	my $categories = $dbh->prepare(q{SELECT fcid,category FROM forum_categories ORDER BY fcid});
+	my $boards = $dbh->prepare(q{SELECT fb.fbid,fb.board, bool_or(fa.post) AS post
+		FROM forum_boards fb NATURAL JOIN forum_access fa
+		WHERE fb.fcid = $1
+			AND gid IN (SELECT groups($2))
+			AND moderate
+		GROUP BY fb.fbid,fb.board
+		ORDER BY fb.fbid
+		});
+	$categories->execute;
+	my @categories;
+	while (my $category = $categories->fetchrow_hashref){
+		$boards->execute($category->{fcid},$c->stash->{UID});
+
+		my @boards;
+		while (my $b = $boards->fetchrow_hashref){
+			next if ($b->{fbid} == $fbid);
+			push @boards,$b;
+		}
+		$category->{boards} = \@boards;
+		push @categories,$category if @boards;
+	}
+	$c->stash(categories => \@categories);
+}
+
 =head1 AUTHOR
 
 Michael Andreen (harv@ruin.nu)
diff --git a/root/src/forum/thread.tt2 b/root/src/forum/thread.tt2
index bd3a1be..0095155 100644
--- a/root/src/forum/thread.tt2
+++ b/root/src/forum/thread.tt2
@@ -39,6 +39,23 @@
 [% END %]
 
 [% IF thread.moderate %]
+
+<form action="[% c.uri_for('moveThreads',thread.fbid) %]" method="post">
+<p>Move checked threads to:
+<input type="hidden" name="t:[% thread.ftid %]" value="1">
+<select name="board">
+[% FOR category IN categories %]
+	<optgroup label="[% category.category %]">
+	[% FOR targetboard IN category.boards %]
+		<option value="[% targetboard.fbid %]">[% targetboard.board %]</option>
+	[% END %]
+	</optgroup>
+[% END %]
+</select>
+<input type="submit" name="cmd" value="Move">
+</p>
+</form>
+
 <form action="[% c.uri_for('postthreadaccess',thread.ftid) %]#NewPosts" method="post">
 <fieldset class="forum-post"> <legend>Change thread access</legend>
 <table>