From 59282033ea0ae407b66b577da86579e28517ade0 Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Mon, 24 Mar 2008 09:43:29 +0000
Subject: [PATCH] fixed: Can't purge uncommitted assets if not using its
 version tag

---
 docs/changelog/7.x.x.txt | 1 +
 lib/WebGUI/AssetTrash.pm | 4 ++--
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index f97ccdde3..396a21355 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -14,6 +14,7 @@
  - fixed: Optional pubDate RSS field generates warnings when missing
  - fixed: Collaboration System threads can return other object types when asked for replies
  - fixed: Able to cut or trash system assets
+ - fixed: Can't purge uncommitted assets if not using its version tag
 
 7.5.7
  - fixed: HttpProxy mixes original site's content encoding with WebGUI's
diff --git a/lib/WebGUI/AssetTrash.pm b/lib/WebGUI/AssetTrash.pm
index 237dce738..7d9c48f60 100644
--- a/lib/WebGUI/AssetTrash.pm
+++ b/lib/WebGUI/AssetTrash.pm
@@ -282,7 +282,7 @@ Moves list of assets to trash, returns www_manageAssets() method of self if canE
 sub www_deleteList {
 	my $self = shift;
 	foreach my $assetId ($self->session->form->param("assetId")) {
-		my $asset = WebGUI::Asset->newByDynamicClass($self->session,$assetId);
+		my $asset = WebGUI::Asset->newPending($self->session,$assetId);
 		if ($asset->canEdit && $asset->canEditIfLocked) {
 			$asset->trash;
 		}
@@ -376,7 +376,7 @@ Purges a piece of content, including all it's revisions, from the system permane
 sub www_purgeList {
         my $self = shift;
         foreach my $id ($self->session->form->param("assetId")) {
-                my $asset = WebGUI::Asset->newByDynamicClass($self->session,$id);
+                my $asset = WebGUI::Asset->newPending($self->session,$id);
                 $asset->purge if $asset->canEdit;
         }
         if ($self->session->form->process("proceed") ne "") {