merging 6.5.6 bugfixes

lib/WebGUI/Asset/Wobject/Collaboration.pm

@@ -755,6 +755,29 @@ sub recalculateRating {
 }
 
 
+#-------------------------------------------------------------------
+
+=head2 setLastPost ( id, date )
+
+Sets the most recent post in this collaboration system.
+
+=head3 id
+
+The assetId of the most recent post.
+
+=head3 date
+
+The date of the most recent post.
+
+=cut
+
+sub setLastPost {
+        my $self = shift;
+        my $id = shift;
+        my $date = shift;
+        $self->update(lastPostId=>$id, lastPostDate=>$date);
+}
+
 #-------------------------------------------------------------------
 
 =head2 subscribe ( )