From 3ce9198220e6eff12182c4b6b8c7295d5f85e448 Mon Sep 17 00:00:00 2001
From: Doug Bell <doug@plainblack.com>
Date: Wed, 10 Nov 2010 14:04:36 -0600
Subject: [PATCH] setVersionLock needs to be done only for tags

---
 lib/WebGUI/Asset.pm           | 2 ++
 lib/WebGUI/AssetVersioning.pm | 1 -
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.pm
index 52d6bf9b8..58f300a16 100644
--- a/lib/WebGUI/Asset.pm
+++ b/lib/WebGUI/Asset.pm
@@ -2827,6 +2827,7 @@ sub www_addSave {
     $object->url(undef);
 
     # More version tag stuff
+    $object->setVersionLock;
     $object->setAutoCommitTag($workingTag) if (defined $autoCommitId);
     $oldWorking->setWorking if $oldWorking;
 
@@ -3045,6 +3046,7 @@ sub www_editSave {
     });
 
     # More version tag stuff
+    $object->setVersionLock;
     $object->setAutoCommitTag($workingTag) if (defined $autoCommitId);
     $oldWorking->setWorking if $oldWorking;
 
diff --git a/lib/WebGUI/AssetVersioning.pm b/lib/WebGUI/AssetVersioning.pm
index 675b2d490..ff13ba3c1 100644
--- a/lib/WebGUI/AssetVersioning.pm
+++ b/lib/WebGUI/AssetVersioning.pm
@@ -102,7 +102,6 @@ sub addRevision {
     my $newVersion = WebGUI::Asset->newById($session, $self->getId, $now);
     $newVersion->setSkipNotification if ($options->{skipNotification});
     $newVersion->updateHistory("created revision");
-    $newVersion->setVersionLock;
     $newVersion->update(\%mergedProperties);
 
     return $newVersion;