From a590693e5343fc1e1db69868f95b32ddde7e395e Mon Sep 17 00:00:00 2001
From: Martin Kamerbeek <martin@webgui-svn>
Date: Tue, 2 May 2006 15:09:42 +0000
Subject: [PATCH] Fixed [ 1478585 ] purgeRevision without warning or
 confirmation

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

diff --git a/docs/changelog/6.x.x.txt b/docs/changelog/6.x.x.txt
index 2e8a0fead..b377aef11 100644
--- a/docs/changelog/6.x.x.txt
+++ b/docs/changelog/6.x.x.txt
@@ -134,6 +134,8 @@
  - fix [ 1471909 ] createAccountSave not called - no validate email (Martin
    Kamerbeek / Procolix)
  - fix [ 1479779 ] enable select box in dataform (Martin Kamerbeek / Procolix)
+ - fix [ 1478585 ] purgeRevision without warning or confirmation (Martin 
+   Kamerbee / Procolix)
  - Added a graphing engine and tied it into the Poll asset (Martin Kamerbeek / Procolix)
 
 6.8.8
diff --git a/lib/WebGUI/AssetVersioning.pm b/lib/WebGUI/AssetVersioning.pm
index 341c153d1..7dbdd7a3f 100644
--- a/lib/WebGUI/AssetVersioning.pm
+++ b/lib/WebGUI/AssetVersioning.pm
@@ -288,7 +288,11 @@ sub www_purgeRevision {
 	return $self->session->privilege->insufficient() unless $self->canEdit;
 	my $revisionDate = $self->session->form->process("revisionDate");
 	return undef unless $revisionDate;
-	WebGUI::Asset->new($self->session,$self->getId,$self->get("className"),$revisionDate)->purgeRevision;
+	
+	my $asset = WebGUI::Asset->new($self->session,$self->getId,$self->get("className"),$revisionDate);
+	return undef if ($asset->get('revisionDate') != $revisionDate);
+
+	$asset->purgeRevision;
 	if ($self->session->form->process("proceed") eq "manageRevisionsInTag") {
 		$self->session->http->setRedirect($self->getUrl("op=manageRevisionsInTag"));
 		return "";