From d9c050423fb14a9a748f76d8c1970434659176a9 Mon Sep 17 00:00:00 2001
From: Kaleb Murphy <perlmonkey2@webgui-svn>
Date: Wed, 12 Nov 2008 15:51:23 +0000
Subject: [PATCH] When you move an asset to a new version, only the current
 version is moved, instead of all of them.

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

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index cedcafbc6..c7c98dbd4 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -1,7 +1,7 @@
 7.6.4
  - Brand new Survey system.  Make sure to export your old results as they will
    not be imported, only the surveys themselves.
-
+ - fixed #8837: When you move an asset to a new version, only the current version is moved, instead of all of them.
 7.6.3
  - improved performance of file uploads
  - changed format of created uploads locations, avoiding case sensitivity problems
diff --git a/lib/WebGUI/AssetVersioning.pm b/lib/WebGUI/AssetVersioning.pm
index 2dc8b6479..723d110e7 100644
--- a/lib/WebGUI/AssetVersioning.pm
+++ b/lib/WebGUI/AssetVersioning.pm
@@ -449,7 +449,7 @@ A new version tag id.
 sub setVersionTag {
 	my $self = shift;
     my $tagId = shift;
-	$self->session->db->write("update assetData set tagId=? where assetId=?", [$tagId, $self->getId]);
+    $self->session->db->write("update assetData set tagId=? where assetId=? and tagId = ?", [$tagId, $self->getId,$self->get('tagId')]);
 	$self->updateHistory("changed version tag to $tagId");
 	$self->purgeCache;
 }