From 4388fa9b24e523acbc75cd85de775e1d6a6f2213 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Sat, 11 Oct 2003 17:09:38 +0000
Subject: [PATCH] Working on notifications and renaming Web to UI

---
 lib/WebGUI/Forum/Thread.pm         |  1 -
 lib/WebGUI/Forum/{Web.pm => UI.pm} | 20 +++++++++++++++++++-
 lib/WebGUI/Wobject/Article.pm      |  6 +++---
 3 files changed, 22 insertions(+), 5 deletions(-)
 rename lib/WebGUI/Forum/{Web.pm => UI.pm} (94%)

diff --git a/lib/WebGUI/Forum/Thread.pm b/lib/WebGUI/Forum/Thread.pm
index 9102c32c0..c9e6e69e6 100644
--- a/lib/WebGUI/Forum/Thread.pm
+++ b/lib/WebGUI/Forum/Thread.pm
@@ -75,7 +75,6 @@ sub incrementReplies {
         my ($self, $dateOfReply, $replyId) = @_;
         WebGUI::SQL->write("update forumThread set replies=replies+1, lastPostId=$replyId, lastPostDate=$dateOfReply 
 		where forumThreadId=".$self->get("forumThreadId"));
-	#add method to notify users for subscriptions
 }
 
 sub incrementViews {
diff --git a/lib/WebGUI/Forum/Web.pm b/lib/WebGUI/Forum/UI.pm
similarity index 94%
rename from lib/WebGUI/Forum/Web.pm
rename to lib/WebGUI/Forum/UI.pm
index 3e350cd4a..f00c8c09a 100644
--- a/lib/WebGUI/Forum/Web.pm
+++ b/lib/WebGUI/Forum/UI.pm
@@ -1,4 +1,4 @@
-package WebGUI::Forum::Web;
+package WebGUI::Forum::UI;
 
 use strict qw(vars subs);
 use WebGUI::DateTime;
@@ -7,6 +7,7 @@ use WebGUI::Forum;
 use WebGUI::Forum::Post;
 use WebGUI::Forum::Thread;
 use WebGUI::HTML;
+use WebGUI::MessageLog;
 use WebGUI::Session;
 use WebGUI::Template;
 
@@ -177,6 +178,23 @@ sub forumOp {
         return &$cmd($callback);
 }
 
+sub notifySubscribers {
+        my ($self, $postId) = @_;
+        my $post = WebGUI::Post->new($postId);
+        my $sth = WebGUI::SQL->read("select userId from forumThreadSubscription where forumThreadId=".$post->get("forumThreadId"));
+                                                                                                                                                             
+    WebGUI::MessageLog::addInternationalizedEntry($userId,"",
+                                WebGUI::URL::page('func=showMessage&wid='.$session{form}{wid}
+                                .'&sid='.$session{form}{sid}.'&mid='.$session{form}{mid}),875);
+        $forum
+        my $message = WebGUI::Template::process(WebGUI::Template::get(1,"Forum/Notification"), $var);
+                                                                                                                                                             
+        while (($userId) = $sth->array) {
+                WebGUI::MessageLog::addEntry($userId,"","Subscription Notification",);
+        }
+        $sth->finish;
+}
+
 sub viewForum {
 	my ($callback, $forumId) = @_;
 	my (%var, @thread_loop);
diff --git a/lib/WebGUI/Wobject/Article.pm b/lib/WebGUI/Wobject/Article.pm
index d0e7c828a..f20e6cbc0 100644
--- a/lib/WebGUI/Wobject/Article.pm
+++ b/lib/WebGUI/Wobject/Article.pm
@@ -14,7 +14,7 @@ use strict;
 use Tie::CPHash;
 use WebGUI::Attachment;
 use WebGUI::DateTime;
-use WebGUI::Forum::Web;
+use WebGUI::Forum::UI;
 use WebGUI::HTML;
 use WebGUI::HTMLForm;
 use WebGUI::Icon;
@@ -196,9 +196,9 @@ sub www_view {
                 $templateId = $_[0]->get("templateId");
         }
 	if ($session{form}{forumOp}) {
-		return WebGUI::Forum::Web::forumOp(WebGUI::URL::page("func=view&amp;wid=".$_[0]->get("wobjectId")));
+		return WebGUI::Forum::UI::forumOp(WebGUI::URL::page("func=view&amp;wid=".$_[0]->get("wobjectId")));
 	} else {
-		return $_[0]->processTemplate($templateId,\%var).WebGUI::Forum::Web::viewForum(WebGUI::URL::page("func=view&amp;wid=".$_[0]->get("wobjectId")),1);
+		return $_[0]->processTemplate($templateId,\%var).WebGUI::Forum::UI::viewForum(WebGUI::URL::page("func=view&amp;wid=".$_[0]->get("wobjectId")),1);
 	}
 }