From 625d0545bfc65e88cffe3f523761bca29434d461 Mon Sep 17 00:00:00 2001
From: Matthew Wilson <matt@plainblack.com>
Date: Wed, 9 Mar 2005 19:20:06 +0000
Subject: [PATCH] fix [1152434 ] Last Reply column is blank in a forum

---
 lib/WebGUI/Asset/Post/Thread.pm           | 17 +++++++++++++++--
 lib/WebGUI/Asset/Wobject/Collaboration.pm |  8 ++++++++
 2 files changed, 23 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Asset/Post/Thread.pm b/lib/WebGUI/Asset/Post/Thread.pm
index 09a8f72bd..45ced61b3 100644
--- a/lib/WebGUI/Asset/Post/Thread.pm
+++ b/lib/WebGUI/Asset/Post/Thread.pm
@@ -126,9 +126,17 @@ sub getIcon {
 	return $session{config}{extrasURL}.'/assets/thread.gif';
 }
 
+
 #-------------------------------------------------------------------
-sub getName {
-        return "Thread";
+sub getLastPost {
+	my $self = shift;
+	my $lastPostId = $self->get("lastPostId");
+	my $lastPost = 0;
+	if ($lastPostId) {
+		$lastPost = WebGUI::Asset->new($lastPostId);
+	}
+	return $lastPost if ($lastPost);
+	return $self;	
 }
 
 #-------------------------------------------------------------------
@@ -163,6 +171,11 @@ sub getLockUrl {
 	$self->getUrl("func=lock");
 }
 
+#-------------------------------------------------------------------
+sub getName {
+        return "Thread";
+}
+
 #-------------------------------------------------------------------
 
 =head2 getNextThread ( )
diff --git a/lib/WebGUI/Asset/Wobject/Collaboration.pm b/lib/WebGUI/Asset/Wobject/Collaboration.pm
index e27d439f1..3b95ba859 100644
--- a/lib/WebGUI/Asset/Wobject/Collaboration.pm
+++ b/lib/WebGUI/Asset/Wobject/Collaboration.pm
@@ -62,6 +62,7 @@ sub appendPostListTemplateVars {
 		for (my $i=0;$i<=$post->get("rating");$i++) {
 			push(@rating_loop,{'rating_loop.count'=>$i});
 		}
+		my $lastPost = $post->WebGUI::Asset::Post::Thread::getLastPost();
                 push(@{$var->{post_loop}}, {
 			%{$post->get},
                         "id"=>$post->getId,
@@ -77,6 +78,13 @@ sub appendPostListTemplateVars {
                         "timeUpdated.human"=>epochToHuman($post->get("dateUpdated"),"%Z"),
                         "userProfile.url"=>$post->getPosterProfileUrl,
                         "user.isVisitor"=>$post->get("ownerUserId") eq "1",
+                        "lastReply.url"=>$lastPost->getUrl(),
+                        "lastReply.title"=>$lastPost->get("title"),
+                        "lastReply.user.isVisitor"=>$lastPost->get("ownerUserId") eq "1",
+                        "lastReply.username"=>$lastPost->get("username"),
+                        "lastReply.userProfile.url"=>$lastPost->WebGUI::Asset::Post::getPosterProfileUrl(),
+                        "lastReply.dateSubmitted.human"=>epochToHuman($lastPost->get("dateSubmitted"),"%z"),
+                        "lastReply.timeSubmitted.human"=>epochToHuman($lastPost->get("dateSubmitted"),"%Z"),
         		"edit.url"=>$post->getEditUrl,
 			'controls'=>$controls,
 			'inDateRange'=>$inDateRange,