From 8b6198220d5cb7376bb48562e1fcc1669caadf05 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Wed, 1 Mar 2006 16:36:54 +0000
Subject: [PATCH] merging a 6.8.8 change

---
 docs/changelog/6.x.x.txt | 1 +
 lib/WebGUI/Asset/Post.pm | 3 ++-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/docs/changelog/6.x.x.txt b/docs/changelog/6.x.x.txt
index bc19d636b..8f6da3c95 100644
--- a/docs/changelog/6.x.x.txt
+++ b/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
diff --git a/lib/WebGUI/Asset/Post.pm b/lib/WebGUI/Asset/Post.pm
index e7cbe0fce..0b12c66fa 100644
--- a/lib/WebGUI/Asset/Post.pm
+++ b/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));