webgui/lib/WebGUI/Forum/UI.pm

package WebGUI::Forum::UI;

use strict qw(vars subs);
use WebGUI::DateTime;
use WebGUI::Form;
use WebGUI::Forum;
use WebGUI::Forum::Post;
use WebGUI::Forum::Thread;
use WebGUI::HTML;
use WebGUI::MessageLog;
use WebGUI::Session;
use WebGUI::Template;


sub _chopSubject {
	return substr(_formatSubject($_[0]),0,30);
}

sub _formatApprovePostURL {
	return WebGUI::URL::append($_[0],"forumOp=approvePost&forumPostId=".$_[1]."&mlog=".$session{form}{mlog});
}

sub _formatDeletePostURL {
	return WebGUI::URL::append($_[0],"forumOp=deletePost&forumPostId=".$_[1]);
}

sub _formatDenyPostURL {
	return WebGUI::URL::append($_[0],"forumOp=denyPost&forumPostId=".$_[1]."&mlog=".$session{form}{mlog});
}

sub _formatEditPostURL {
	return WebGUI::URL::append($_[0],"forumOp=post&forumPostId=".$_[1]);
}

sub _formatForumSubscribeURL {
	return WebGUI::URL::append($_[0],"forumOp=forumSubscribe&forumId=".$_[1]);
}

sub _formatForumUnsubscribeURL {
	return WebGUI::URL::append($_[0],"forumOp=forumUnsubscribe&forumId=".$_[1]);
}

sub _formatNextThreadURL {
	return WebGUI::URL::append($_[0],"forumOp=nextThread&forumThreadId=".$_[1]);
}

sub _formatNewThreadURL {
	return WebGUI::URL::append($_[0],"forumOp=post&forumId=".$_[1]);
}

sub _formatPostDate {
	return WebGUI::DateTime::epochToHuman($_[0],"%z");
}

sub _formatPostTime {
	return WebGUI::DateTime::epochToHuman($_[0],"%Z");
}

sub _formatPreviousThreadURL {
	return WebGUI::URL::append($_[0],"forumOp=previousThread&forumThreadId=".$_[1]);
}

sub _formatRatePostURL {
	return WebGUI::URL::append($_[0],"forumOp=ratePost&forumPostId=".$_[1]."&rating=".$_[2]);
}

sub _formatReplyPostURL {
	return WebGUI::URL::append($_[0],"forumOp=post&parentId=".$_[1]);
}

sub _formatSubject {
	return WebGUI::HTML::filter($_[0],"all");
}

sub _formatStatus {
        if ($_[0] eq "approved") {
                return WebGUI::International::get(560);
        } elsif ($_[0] eq "denied") {
                return WebGUI::International::get(561);
        } elsif ($_[0] eq "pending") {
                return WebGUI::International::get(562);
        }
}

sub _formatThreadSubscribeURL {
	return WebGUI::URL::append($_[0],"forumOp=threadSubscribe&forumPostId=".$_[1]);
}

sub _formatThreadUnsubscribeURL {
	return WebGUI::URL::append($_[0],"forumOp=threadUnsubscribe&forumPostId=".$_[1]);
}

sub _formatThreadURL {
	return WebGUI::URL::append($_[0],"forumOp=viewThread&forumPostId=".$_[1]."#".$_[1]);
}

sub _formatUserProfileURL {
	return WebGUI::URL::page("op=viewProfile&uid=".$_[0]);
}

sub _getPostTemplateVars {
        my ($post, $thread, $forum, $callback, $var) = @_;
	$var->{'post.subject.label'} = WebGUI::International::get(229);
        $var->{'post.subject'} = WebGUI::HTML::filter($post->get("subject"),"none");
        $var->{'post.message'} = WebGUI::HTML::filter($post->get("message"),$forum->get("filterPosts"));
	if ($post->get("contentType") eq "mixed") {
		unless ($var->{'post.message'} =~ /\<div/ig || $var->{'post.message'} =~ /\<br/ig || $var->{'post.message'} =~ /\<p/ig) {
                	$var->{'post.message'} =~ s/\n/\<br \/\>/g;
        	}
	} elsif ($post->get("contentType") eq "text") {
               	$var->{'post.message'} =~ s/\t/&nbsp;&nbsp;&nbsp;&nbsp;/g;
               	$var->{'post.message'} =~ s/ /&nbsp;/g;
               	$var->{'post.message'} =~ s/\n/\<br \/\>/g;
	} elsif ($post->get("contentType") eq "code") {
               	$var->{'post.message'} =~ s/&/&amp;/g;
               	$var->{'post.message'} =~ s/\</&lt;/g;
               	$var->{'post.message'} =~ s/\>/&gt;/g;
               	$var->{'post.message'} =~ s/\n/\<br \/\>/g;
               	$var->{'post.message'} =~ s/\t/&nbsp;&nbsp;&nbsp;&nbsp;/g;
               	$var->{'post.message'} =~ s/ /&nbsp;/g;
               	$var->{'post.message'} = '<div style="font-family: fixed;">'.$var->{'post.message'}.'</div>';
	}
        if ($forum->get("allowReplacements")) {
                my $sth = WebGUI::SQL->read("select pattern,replaceWith from forumReplacement");
                while (my ($pattern,$replaceWith) = $sth->array) {
                        $var->{'post.message'} =~ s/\Q$pattern/$replaceWith/g;
                }
                $sth->finish;
        }
	$var->{'user.canPost'} = $forum->canPost;
        $var->{'post.date.value'} = _formatPostDate($post->get("dateOfPost"));
	$var->{'post.date.label'} = WebGUI::International::get(245);
        $var->{'post.date.epoch'} = $post->get("dateOfPost");
        $var->{'post.time.value'} = _formatPostTime($post->get("dateOfPost"));
	$var->{'post.rating.value'} = $post->get("rating")+0;
	$var->{'post.rating.label'} = WebGUI::International::get(1020);
	$var->{'post.views.value'} = $post->get("views")+0;
	$var->{'post.views.label'} = WebGUI::International::get(514);
	$var->{'post.status.value'} = _formatStatus($post->get("status"));
	$var->{'post.status.label'} = WebGUI::International::get(553);
	$var->{'post.isLocked'} = $thread->isLocked;
	$var->{'post.isModerator'} = $forum->isModerator;
	$var->{'post.canEdit'} = $post->canEdit($session{user}{userId});
	$var->{'post.user.isVisitor'} = ($post->get("userId") == 1);
	$var->{'post.user.label'} = WebGUI::International::get(244);
	$var->{'post.user.name'} = $post->get("username");
	$var->{'post.user.Id'} = $post->get("userId");
	$var->{'post.user.Profile'} = _formatUserProfileURL($post->get("userId"));
	$var->{'post.url'} = _formatThreadURL($callback,$post->get("forumPostId"));
	$var->{'post.id'} = $post->get("forumPostId");
	$var->{'post.rate.label'} = WebGUI::International::get(1021);
	$var->{'post.rate.url.1'} = _formatRatePostURL($callback,$post->get("forumPostId"),1);
	$var->{'post.rate.url.2'} = _formatRatePostURL($callback,$post->get("forumPostId"),2);
	$var->{'post.rate.url.3'} = _formatRatePostURL($callback,$post->get("forumPostId"),3);
	$var->{'post.rate.url.4'} = _formatRatePostURL($callback,$post->get("forumPostId"),4);
	$var->{'post.rate.url.5'} = _formatRatePostURL($callback,$post->get("forumPostId"),5);
	$var->{'post.hasRated'} = $post->hasRated;
	$var->{'post.reply.label'} = WebGUI::International::get(577);
	$var->{'post.reply.url'} = _formatReplyPostURL($callback,$post->get("forumPostId"));
	$var->{'post.edit.label'} = WebGUI::International::get(575);
	$var->{'post.edit.url'} = _formatEditPostURL($callback,$post->get("forumPostId"));
	$var->{'post.delete.label'} = WebGUI::International::get(576);
	$var->{'post.delete.url'} = _formatDeletePostURL($callback,$post->get("forumPostId"));
	$var->{'post.approve.label'} = WebGUI::International::get(572);
	$var->{'post.approve.url'} = _formatApprovePostURL($callback,$post->get("forumPostId"));
	$var->{'post.deny.label'} = WebGUI::International::get(574);
	$var->{'post.deny.url'} = _formatDenyPostURL($callback,$post->get("forumPostId"));
	$var->{'post.full'} = WebGUI::Template::process(WebGUI::Template::get(1,"Forum/Post"), $var); 
	return $var;
}

sub _recurseThread {
	my ($post, $thread, $forum, $depth, $callback, $currentPost) = @_;
	my @depth_loop;
	for (my $i=0; $i<$depth; $i++) {
		push(@depth_loop,{depth=>$i});
	}
	my @post_loop;
	push (@post_loop, _getPostTemplateVars($post, $thread, $forum, $callback, {
		'post.indent_loop'=>\@depth_loop,
		'post.indent.depth'=>$depth,
		'post.isCurrent'=>($currentPost == $post->get("forumPostId"))
		}));
	my $replies = $post->getReplies;
	foreach my $reply (@{$replies}) {
		@post_loop = (@post_loop,@{_recurseThread($reply, $thread, $forum, $depth+1, $callback, $currentPost)});
	}	
	return \@post_loop;
}

sub forumOp {
	my ($callback) = @_;
	my $cmd = "www_".$session{form}{forumOp};
        return &$cmd($callback);
}

sub notifySubscribers {
        my ($post, $thread, $forum, $callback) = @_;
	my %subscribers;
        my $sth = WebGUI::SQL->read("select userId from forumThreadSubscription where forumThreadId=".$thread->get("forumThreadId"));
	while (my ($userId) = $sth->array) { 
		$subscribers{$userId} = $userId unless ($userId == $post->get("userId"));	# make sure we don't send unnecessary messages 
	}
        $sth->finish;
        my $sth = WebGUI::SQL->read("select userId from forumSubscription where forumId=".$forum->get("forumId"));
	while (my ($userId) = $sth->array) { 
		$subscribers{$userId} = $userId unless ($userId == $post->get("userId"));	# make sure we don't send unnecessary messages 
	}
        $sth->finish;
	my $var = {
		'notify.subscription.message' => WebGUI::International::get(875)
		};
	$var = _getPostTemplateVars($post, $thread, $forum, $callback, $var);
	my $subject = WebGUI::International::get(523);
       	my $message = WebGUI::Template::process(WebGUI::Template::get(1,"Forum/Notification"), $var);
	foreach my $userId (keys %subscribers) {
               	WebGUI::MessageLog::addEntry($userId,"",$subject,$message);
	}
}

sub viewForum {
	my ($callback, $forumId) = @_;
	my (%var, @thread_loop);
	my $forum = WebGUI::Forum->new($forumId);
	$var{'user.isVisitor'} = ($session{user}{userId} == 1);
	$var{'thread.new.url'} = _formatNewThreadURL($callback,$forumId);
	$var{'thread.new.label'} = WebGUI::International::get(1018);
	$var{'forum.subscribe.label'} = WebGUI::International::get(1022);
	$var{'forum.subscribe.url'} = _formatForumSubscribeURL($callback,$forumId);
	$var{'forum.unsubscribe.label'} = WebGUI::International::get(1023);
	$var{'forum.unsubscribe.url'} = _formatForumUnsubscribeURL($callback,$forumId);
	$var{'user.isSubscribed'} = $forum->isSubscribed;
	$var{'user.canPost'} = $forum->canPost;
	$var{'thread.subject.label'} = WebGUI::International::get(229);
	$var{'thread.date.label'} = WebGUI::International::get(245);
	$var{'thread.user.label'} = WebGUI::International::get(244);
	$var{"thread.views.label"} = WebGUI::International::get(514);
        $var{"thread.replies.label"} = WebGUI::International::get(1016);
	$var{'thread.rating.label'} = WebGUI::International::get(1020);
        $var{"thread.last.label"} = WebGUI::International::get(1017);
	my $p = WebGUI::Paginator->new($callback);
	$p->setDataByQuery("select * from forumThread where forumId=".$forumId." order by isSticky desc, lastPostDate desc");
	$var{firstPage} = $p->getFirstPageLink;
        $var{lastPage} = $p->getLastPageLink;
        $var{nextPage} = $p->getNextPageLink;
        $var{pageList} = $p->getPageLinks;
        $var{previousPage} = $p->getPreviousPageLink;
        $var{multiplePages} = ($p->getNumberOfPages > 1);
	my $threads = $p->getPageData;
	foreach my $thread (@$threads) {
		my $root = WebGUI::Forum::Post->new($thread->{rootPostId});
		my $last;
		if ($thread->{rootPostId} == $thread->{lastPostId}) { #saves the lookup if it's the same id
			$last = $root;
		} else {
			$last = WebGUI::Forum::Post->new($thread->{lastPostId});
		}
		my @rating_loop;
		for (my $i=0;$i<=$thread->{rating};$i++) {
			push(@rating_loop,{'thread.rating_loop.count'=>$i});
		}
		push(@thread_loop,{
			'thread.views'=>$thread->{views},
			'thread.replies'=>$thread->{replies},
			'thread.rating'=>$thread->{rating},
			'thread.rating_loop'=>\@rating_loop,
			'thread.isSticky'=>$thread->{isSticky},
			'thread.isLocked'=>$thread->{isLocked},
			'thread.root.subject'=>_chopSubject($root->get("subject")),
			'thread.root.url'=>_formatThreadURL($callback,$root->get("forumPostId")),
			'thread.root.epoch'=>$root->get("dateOfPost"),
			'thread.root.date'=>_formatPostDate($root->get("dateOfPost")),
			'thread.root.time'=>_formatPostTime($root->get("dateOfPost")),
			'thread.root.user.profile'=>_formatUserProfileURL($root->get("userId")),
			'thread.root.user.name'=>$root->get("username"),
			'thread.root.user.id'=>$root->get("userId"),
			'thread.root.user.isVisitor'=>($root->get("userId") == 1),
			'thread.root.status'=>_formatStatus($root->get("status")),
			'thread.last.subject'=>_chopSubject($last->get("subject")),
			'thread.last.url'=>_formatThreadURL($callback,$last->get("forumPostId")),
			'thread.last.epoch'=>$last->get("dateOfPost"),
			'thread.last.date'=>_formatPostDate($last->get("dateOfPost")),
			'thread.last.time'=>_formatPostTime($last->get("dateOfPost")),
			'thread.last.user.profile'=>_formatUserProfileURL($last->get("userId")),
			'thread.last.user.name'=>$last->get("username"),
			'thread.last.user.id'=>$last->get("userId"),
			'thread.last.user.isVisitor'=>($root->get("userId") == 1),
			'thread.last.status'=>_formatStatus($last->get("status"))
			});
	}
	$var{thread_loop} = \@thread_loop;
	return WebGUI::Template::process(WebGUI::Template::get(1,"Forum"), \%var); 
}	

sub www_approvePost {
	my ($callback) = @_;
	my $post = WebGUI::Forum::Post->new($session{form}{forumPostId});
	return WebGUI::Privilege::insufficient() unless ($post->getThread->getForum->isModerator);
	$post->setStatusApproved;
       	return www_viewThread($callback);
}

sub www_deletePost {
	my ($callback) = @_;
	my $post = WebGUI::Forum::Post->new($session{form}{forumPostId});
	return WebGUI::Privilege::insufficient() unless ($post->canEdit);
      	my $output = '<h1>'.WebGUI::International::get(42).'</h1>';
       	$output .= WebGUI::International::get(401).'<p>';
       	$output .= '<div align="center"><a href="'.WebGUI::URL::append($callback,"forumOp=deletePostConfirm&amp;forumPostId="
		.$session{form}{forumPostId}).'">'.WebGUI::International::get(44).'</a>';
       	$output .= ' &nbsp; <a href="'.$callback.'">'.WebGUI::International::get(45).'</a></div>';
       	return $output;
}

sub www_deletePostConfirm {
	my ($callback) = @_;
	my $post = WebGUI::Forum::Post->new($session{form}{forumPostId});
	return WebGUI::Privilege::insufficient() unless ($post->getThread->getForum->isModerator);
	$post->setStatusDeleted;
       	return viewForum($callback,$post->getThread->get("forumId"));
}

sub www_denyPost {
	my ($callback) = @_;
	my $post = WebGUI::Forum::Post->new($session{form}{forumPostId});
	return WebGUI::Privilege::insufficient() unless ($post->canEdit($session{user}{userId}));
	$post->setStatusDenied;
       	return www_viewThread($callback);
}

sub www_forumSubscribe {
	my ($callback) = @_;
	my $forum = WebGUI::Forum->new($session{form}{forumId});
	return WebGUI::Privilege::insufficient() unless ($forum->canPost && $session{user}{userId} != 1);
	$forum->subscribe;
	return viewForum($callback, $session{form}{forumId});
}

sub www_forumUnsubscribe {
	my ($callback) = @_;
	my $forum = WebGUI::Forum->new($session{form}{forumId});
	return WebGUI::Privilege::insufficient() unless ($session{user}{userId} != 1);
	$forum->unsubscribe;
	return viewForum($callback, $session{form}{forumId});
}

sub www_nextThread {
	my ($callback) = @_;
	my $thread = WebGUI::Forum::Thread->new($session{form}{forumThreadId});
	my $nextThreadRoot = $thread->getNextThread->get("rootPostId");
	if (defined $nextThreadRoot) {
		return www_viewThread($callback,$nextThreadRoot);
	} else {
		return viewForum($callback,$thread->get("forumId"));
	}
}

sub www_post {
	my ($callback) = @_;
	my ($subject, $message, $forum);
	my $var;
	$var->{'newpost.header'} = 'Post a Message';
	$var->{'newpost.isNewThread'} = ($session{form}{forumId} ne "");
	$var->{'newpost.isReply'} = ($session{form}{parentId} ne "");
	$var->{'newpost.isEdit'} = ($session{form}{forumPostId} ne "");
	$var->{'user.isVisitor'} = ($session{user}{userId} == 1);
	$var->{'newpost.isNewMessage'} = ($var->{isNewThread} || $var->{isReply});
	$var->{'form.begin'} = WebGUI::Form::formHeader({
		action=>$callback
		});
	my $defaultSubscribeValue = 0;
	my $contentType = "mixed";
	if ($var->{'newpost.isReply'}) {
		my $reply = WebGUI::Forum::Post->new($session{form}{parentId});
		return WebGUI::Privilege::insufficient unless ($reply->getThread->getForum->canPost);
		$var->{'form.begin'} .= WebGUI::Form::hidden({
			name=>'parentId',
			value=>$reply->get("forumPostId")
			});
		$forum = $reply->getThread->getForum;
		$var = _getPostTemplateVars($reply, $reply->getThread, $forum, $callback, $var);

		$subject = $reply->get("subject");
		$subject = "Re: ".$subject unless ($subject =~ /^Re:/);
	}
	if ($var->{'newpost.isNewThread'}) {
		$var->{'form.begin'} .= WebGUI::Form::hidden({
			name=>'forumId',
			value=>$session{form}{forumId}
			});
		$forum = WebGUI::Forum->new($session{form}{forumId});
		return WebGUI::Privilege::insufficient unless ($forum->canPost);
		if ($forum->isModerator) {
			$var->{'sticky.label'} = WebGUI::International::get(1013);
			$var->{'sticky.form'} = WebGUI::Form::yesNo({
				name=>'isSticky',
				value=>0
				});
		}
		$defaultSubscribeValue = 1 unless ($forum->isSubscribed);
	}
	if ($var->{'newpost.isNewMessage'}) {
		$var->{'subscribe.label'} = WebGUI::International::get(873);
		if ($forum->isModerator) {
			$var->{'lock.label'} = WebGUI::International::get(1012);
			$var->{'lock.form'} = WebGUI::Form::yesNo({
				name=>'isLocked',
				value=>0
				});
		}
		$var->{'subscribe.form'} = WebGUI::Form::yesNo({
			name=>'subscribe',
			value=>$defaultSubscribeValue
			});
	}
	if ($var->{'newpost.isEdit'}) {
		my $post = WebGUI::Forum::Post->new($session{form}{forumPostId});
		return WebGUI::Privilege::insufficient unless ($post->getThread->getForum->canPost);
		$subject = $post->get("subject");
		$message = $post->get("message");
		$forum = $post->getThread->getForum;
		$var->{'form.begin'} .= WebGUI::Form::hidden({
			name=>"forumPostId",
			value=>$post->get("forumPostId")
			});
		$contentType = $post->get("contentType");
	}
	$var->{'contentType.label'} = WebGUI::International::get(1007);
	$var->{'contentType.form'} = WebGUI::Form::contentType({
		name=>'contentType',
		value=>[$contentType]
		});
	$var->{'user.isModerator'} = $forum->isModerator;
	$var->{allowReplacements} = $forum->get("allowReplacements");
	if ($forum->get("allowRichEdit")) {
		$var->{'message.form'} = WebGUI::Form::HTMLArea({
			name=>'message',
			value=>$message
			});
	} else {
		$var->{'message.form'} = WebGUI::Form::textarea({
			name=>'message',
			value=>$message
			});
	}
	$var->{'message.label'} = WebGUI::International::get(230);
	if ($var->{'user.isVisitor'}) {
		$var->{'visitorName.label'} = WebGUI::International::get(438);
		$var->{'visitorName.form'} = WebGUI::Form::text({
			name=>'visitorName'
			});
	}
	$var->{'form.begin'} .= WebGUI::Form::hidden({
		name=>'forumOp',
		value=>'postSave'
		});
	$var->{'form.submit'} = WebGUI::Form::submit();
	$var->{'subject.label'} = WebGUI::International::get(229);
	$var->{'subject.form'} = WebGUI::Form::text({
		name=>'subject',
		value=>$subject
		});
	$var->{'form.end'} = '</form>';
	return WebGUI::Template::process(WebGUI::Template::get(1,"Forum/PostForm"), $var); 
}

sub www_postSave {
	my ($callback) = @_;
	my $forumId = $session{form}{forumId};
	my $threadId = $session{form}{forumThreadId};
	my $postId = $session{form}{forumPostId};
	my %postData = (
		message=>$session{form}{message},
		subject=>$session{form}{subject},
                contentType=>$session{form}{contentType}
		);
	my %postDataNew = (
		userId=>$session{user}{userId},
		username=>($session{form}{visitorName} || $session{user}{alias})
		);
	if ($session{form}{parentId} > 0) { # reply
		%postData = (%postData, %postDataNew);
		my $parentPost = WebGUI::Forum::Post->new($session{form}{parentId});
		return WebGUI::Privilege::insufficient unless ($parentPost->getThread->getForum->canPost);
		$parentPost->getThread->subscribe($session{user}{userId}) if ($session{form}{subscribe});
		$parentPost->getThread->lock if ($session{form}{isLocked});
		$postData{forumThreadId} = $parentPost->getThread->get("forumThreadId");
		$postData{parentId} = $session{form}{parentId};
		my $post = WebGUI::Forum::Post->create(\%postData);
		notifySubscribers($post,$post->getThread,$post->getThread->getForum,$callback);
		return www_viewThread($callback,$post->get("forumPostId"));
	}
	if ($session{form}{forumPostId} > 0) { # edit
		my $post = WebGUI::Forum::Post->new($session{form}{forumPostId});
		return WebGUI::Privilege::insufficient unless ($post->getThread->getForum->canPost);
		$post->set(\%postData);	
		return www_viewThread($callback,$post->get("forumPostId"));
	}
	if ($forumId) { # new post
		%postData = (%postData, %postDataNew);
		my $forum = WebGUI::Forum->new($forumId);
		return WebGUI::Privilege::insufficient unless ($forum->canPost);
		my $thread = WebGUI::Forum::Thread->create({
			forumId=>$forumId,
			isSticky=>$session{form}{isSticky},
			isLocked=>$session{form}{isLocked}
			}, \%postData);
		$thread->subscribe($session{user}{userId}) if ($session{form}{subscribe});
		return viewForum($callback, $forumId);
	}
}

sub www_previousThread {
	my ($callback) = @_;
	my $thread = WebGUI::Forum::Thread->new($session{form}{forumThreadId});
	my $previousThreadRoot = $thread->getPreviousThread->get("rootPostId");
	if (defined $previousThreadRoot) {
		return www_viewThread($callback,$previousThreadRoot);
	} else {
		return viewForum($callback,$thread->get("forumId"));
	}
}

sub www_ratePost {
	my ($callback) = @_;
	my $post = WebGUI::Forum::Post->new($session{form}{forumPostId});
	return WebGUI::Privilege::insufficient() unless ($post->getThread->getForum->canPost);
	$post->rate($session{form}{rating}) unless ($post->hasRated);
	return www_viewThread($callback,$session{form}{forumPostId});
}

sub www_threadSubscribe {
	my ($callback) = @_;
	my $post = WebGUI::Forum::Post->new($session{form}{forumPostId});
	return WebGUI::Privilege::insufficient() unless ($session{user}{userId} != 1 && $post->getThread->getForum->canPost);
	$post->getThread->subscribe;
	return www_viewThread($callback, $session{form}{forumPostId});
}

sub www_threadUnsubscribe {
	my ($callback) = @_;
	my $post = WebGUI::Forum::Post->new($session{form}{forumPostId});
	return WebGUI::Privilege::insufficient() unless ($session{user}{userId} != 1);
	$post->getThread->unsubscribe;
	return www_viewThread($callback, $session{form}{forumPostId});
}

sub www_viewThread {
	my ($callback, $postId) = @_;
	$postId = $session{form}{forumPostId} unless ($postId);
	my $post = WebGUI::Forum::Post->new($postId);
	$post->markRead($session{user}{userId});
	my $thread = $post->getThread;
	my $forum = $thread->getForum;
	my $var = _getPostTemplateVars($post, $thread, $forum, $callback);
	my $root = WebGUI::Forum::Post->new($thread->get("rootPostId"));
	$var->{'user.canPost'} = $forum->canPost;
	$var->{'user.isSubscribed'} = $thread->isSubscribed;
	$var->{'user.isVisitor'} = ($session{user}{userId} == 1);
	$var->{'thread.subscribe.url'} = _formatThreadSubscribeURL($callback,$postId);
	$var->{'thread.subscribe.label'} = WebGUI::International::get(873);
	$var->{'thread.unsubscribe.url'} = _formatThreadUnsubscribeURL($callback,$postId);
	$var->{'thread.unsubscribe.label'} = WebGUI::International::get(874);
	$var->{post_loop} = _recurseThread($root, $thread, $forum, 0, $callback, $postId);
	$var->{'thread.layout.isFlat'} = ($session{user}{discussionLayout} eq "flat");
	$var->{'thread.layout.isNested'} = ($session{user}{discussionLayout} eq "nested");
	$var->{'thread.layout.isThreaded'} = ($session{user}{discussionLayout} eq "threaded" || !($var->{'thread.layout.isNested'} || $var->{'thread.layout.isFlat'}));
        $var->{'thread.subject.label'} = WebGUI::International::get(229);
        $var->{'thread.date.label'} = WebGUI::International::get(245);
        $var->{'thread.user.label'} = WebGUI::International::get(244);
 	$var->{'thread.new.url'} = _formatNewThreadURL($callback,$thread->get("forumId"));
	$var->{'thread.new.label'} = WebGUI::International::get(1018);
	$var->{'thread.previous.url'} = _formatPreviousThreadURL($callback,$thread->get("forumThreadId"));
	$var->{'thread.previous.label'} = WebGUI::International::get(513);
	$var->{'thread.next.url'} = _formatNextThreadURL($callback,$thread->get("forumThreadId"));
	$var->{'thread.next.label'} = WebGUI::International::get(512);
	$var->{'thread.list.url'} = $callback;
	$var->{'thread.list.label'} = WebGUI::International::get(1019);
	return WebGUI::Template::process(WebGUI::Template::get(1,"Forum/Thread"), $var); 
}


1;