merging 5.5.5 bugfixes

lib/WebGUI/Forum.pm

@@ -51,6 +51,7 @@ Data management class for forums.
  $forum->purge;
  $forum->recalculateRating;
  $forum->set(\%data);
+ $forum->setLastPost($epoch, $postId);
  $forum->subscribe;
  $forum->unsubscribe;
 
@@ -444,6 +445,34 @@ sub set {
 
 #-------------------------------------------------------------------
 
+=head2 setLastPost ( lastPostDate, lastPostId ) 
+
+Sets the pertinent details for the last post. Can also be done directly using the set method.
+
+=over
+
+=item lastPostDate
+
+The epoch date of the post.
+
+=item lastPostId
+
+The unique id of the post.
+
+=back
+
+=cut
+
+sub setLastPost {
+        my ($self, $postDate, $postId) = @_;
+        $self->set({
+                lastPostId=>$postId,
+                lastPostDate=>$postDate
+                });
+}
+
+#-------------------------------------------------------------------
+
 =head2 subscribe ( [ userId ] )
 
 Subscribes a user to this forum.