From c3f98f88213e099a1bc55932deb6392b52341622 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Wed, 19 Nov 2003 03:21:12 +0000
Subject: [PATCH] fixed a typo in Forum.pm and a privileges problem in Post.pm

---
 lib/WebGUI/Forum.pm      | 4 ++--
 lib/WebGUI/Forum/Post.pm | 4 +++-
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/Forum.pm b/lib/WebGUI/Forum.pm
index 58e9eb92d..434c85e7a 100644
--- a/lib/WebGUI/Forum.pm
+++ b/lib/WebGUI/Forum.pm
@@ -130,7 +130,7 @@ Deccrements this forum's reply counter.
 
 =cut
 
-sub incrementReplies {
+sub decrementReplies {
         my ($self) = @_;
         WebGUI::SQL->write("update forum set replies=replies-1 where forumId=".$self->get("forumId"));
 }
@@ -143,7 +143,7 @@ Decrements this forum's thread counter.
 
 =cut
 
-sub incrementReplies {
+sub decrementThreads {
         my ($self) = @_;
         WebGUI::SQL->write("update forum set threads=threads-1 where forumId=".$self->get("forumId"));
 }
diff --git a/lib/WebGUI/Forum/Post.pm b/lib/WebGUI/Forum/Post.pm
index f190f4970..0e44c9a35 100644
--- a/lib/WebGUI/Forum/Post.pm
+++ b/lib/WebGUI/Forum/Post.pm
@@ -100,7 +100,9 @@ The unique identifier to check privileges against. Defaults to the current user.
 sub canView {
         my ($self, $userId) = @_;
 	$userId = $session{user}{userId} unless ($userId);
-	if ($self->get("status") eq "deleted") {
+	if ($self->get("status") eq "approved" || $self->get("status") eq "archived") {
+		return 1;
+	} elsif ($self->get("status") eq "deleted") {
 		return 0;
 	} elsif ($self->get("status") eq "denied" && $userId == $self->get("userId")) {
 		return 1;