merging a 6.8.8 change

docs/changelog/6.x.x.txt

@@ -53,6 +53,7 @@
  - fix [ 1437977 ] richeditor selectbox options not versioned, trashed appear
  - fixed a bug in the rich editor where the page chooser didn't have scroll
    bars
+ - fixed a delete bug on cs posts.
 
 6.8.7
  - fix [ 1431098 ] op=becomeUser can become non-existent userIds

lib/WebGUI/Asset/Post.pm

@@ -738,7 +738,8 @@ sub purge {
         my $self = shift;
         my $sth = $self->session->db->read("select storageId from Post where assetId=".$self->session->db->quote($self->getId));
         while (my ($storageId) = $sth->array) {
-                WebGUI::Storage->get($self->session,$storageId)->delete;
+		my $storage = WebGUI::Storage->get($storageId);
+                $storage->delete if defined $storage;
         }
         $sth->finish;
 	$self->session->db->write("delete from Post_rating where assetId=".$self->session->db->quote($self->getId));