From f095337301ed1379311d10c4393e7d4afb52d89d Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Thu, 3 Apr 2008 16:31:09 +0000
Subject: [PATCH] fixing article storage copying

---
 lib/WebGUI/Asset/Wobject/Article.pm | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/lib/WebGUI/Asset/Wobject/Article.pm b/lib/WebGUI/Asset/Wobject/Article.pm
index 0c96b3841..81a641b80 100644
--- a/lib/WebGUI/Asset/Wobject/Article.pm
+++ b/lib/WebGUI/Asset/Wobject/Article.pm
@@ -70,13 +70,15 @@ Override the default method in order to deal with attachments.
 =cut
 
 sub addRevision {
-        my $self = shift;
-        my $newSelf = $self->SUPER::addRevision(@_);
-        if ($newSelf->getRevisionCount > 1 && $self->get("storageId")) {
-                my $newStorage = WebGUI::Storage->get($self->session,$self->get("storageId"))->copy;
-                $newSelf->update({storageId=>$newStorage->getId});
-        }
-        return $newSelf;
+    my $self = shift;
+    my $oldStorage = $self->get('storageId');
+    my $newSelf = $self->SUPER::addRevision(@_);
+    my $newStorageId = $newSelf->get('storageId');
+    if ($newStorageId && $newStorageId eq $self->get('storageId')) {
+        my $newStorage = WebGUI::Storage->get($self->session, $newStorageId)->copy;
+        $newSelf->update({storageId=>$newStorage->getId});
+    }
+    return $newSelf;
 }
 
 #-------------------------------------------------------------------