From a866f143d0adf7e979dc1931880d9ea95ecbd706 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 7 Oct 2009 08:51:05 -0700
Subject: [PATCH] Fix bug 11098.  Create a VersionTag method that only clear
 the session for a single user.

---
 docs/changelog/7.x.x.txt           |  1 +
 lib/WebGUI/Operation/VersionTag.pm |  2 +-
 lib/WebGUI/VersionTag.pm           | 14 ++++++++++++
 t/VersionTag.t                     | 34 +++++++++++++++++++++++++++++-
 4 files changed, 49 insertions(+), 2 deletions(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index a2c4347bd..f1ac06cab 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -1,4 +1,5 @@
 7.8.2
+ - fixed #11098: Leaving a version tag makes everyone leave
 
 7.8.1
  - mark $session->datetime->time as deprecated and remove its use from core code
diff --git a/lib/WebGUI/Operation/VersionTag.pm b/lib/WebGUI/Operation/VersionTag.pm
index 7402e4aad..dfe5638fb 100644
--- a/lib/WebGUI/Operation/VersionTag.pm
+++ b/lib/WebGUI/Operation/VersionTag.pm
@@ -464,7 +464,7 @@ A reference to the current session.
 
 sub www_leaveVersionTag {
     my $session = shift;
-    WebGUI::VersionTag->getWorking($session)->clearWorking;
+    WebGUI::VersionTag->getWorking($session)->leaveTag;
     return www_manageVersions($session);
 }
 
diff --git a/lib/WebGUI/VersionTag.pm b/lib/WebGUI/VersionTag.pm
index a3c28e596..d440f2963 100644
--- a/lib/WebGUI/VersionTag.pm
+++ b/lib/WebGUI/VersionTag.pm
@@ -515,6 +515,20 @@ sub getWorking {
 
 #-------------------------------------------------------------------
 
+=head2 leaveTag ( )
+
+Make the user leave their current tag.
+
+=cut
+
+sub leaveTag {
+	my $self = shift;
+	$self->session->scratch->delete('versionTag');
+	$self->session->stow->delete("versionTag");
+}
+
+#-------------------------------------------------------------------
+
 =head2 lock ( )
 
 Sets this version tag up so no more revisions may be applied to it.
diff --git a/t/VersionTag.t b/t/VersionTag.t
index ee752a766..368393a96 100644
--- a/t/VersionTag.t
+++ b/t/VersionTag.t
@@ -14,7 +14,7 @@ use lib "$FindBin::Bin/lib";
 use WebGUI::Test;
 use WebGUI::Session;
 use WebGUI::VersionTag;
-use Test::More tests => 68; # increment this value for each test you create
+use Test::More tests => 74; # increment this value for each test you create
 
 my $session = WebGUI::Test->session;
 
@@ -379,6 +379,38 @@ $adminUserTag->rollback();
 setSiteVersionTagMode($session, q{multiPerUser});
 setUserVersionTagMode($user, q{inherited});
 
+my $andySession = WebGUI::Test->newSession();
+my $redSession  = WebGUI::Test->newSession();
+
+my $andy = WebGUI::User->create($andySession);
+my $red  = WebGUI::User->create($redSession);
+addToCleanup($andy, $red);
+
+my $andyTag = WebGUI::VersionTag->getWorking($andySession);
+addToCleanup($andyTag);
+my $redTag  = WebGUI::VersionTag->new($redSession, $andyTag->getId);
+$redTag->setWorking();
+is($andyTag->getId, $redTag->getId, 'users share the same version tag');
+
+$andyTag->leaveTag;
+{
+    my $andyTagCheck = WebGUI::VersionTag->getWorking($andySession, 'nocreate');
+    is($andyTagCheck, undef, 'leaveTag: user andy does not have tag');
+    my $redTagCheck  = WebGUI::VersionTag->getWorking($redSession, 'nocreate');
+    isa_ok($redTagCheck, 'WebGUI::VersionTag', '... user red does');
+    is($redTagCheck->getId, $redTag->getId, '... user red still has the same tag as before');
+}
+
+my $andyTag2 = WebGUI::VersionTag->new($session, $redTag->getId);
+$andyTag2->clearWorking;
+{
+    my $andyTagCheck = WebGUI::VersionTag->getWorking($andySession, 'nocreate');
+    is($andyTagCheck, undef, 'clearWorking: user andy does not have tag');
+    my $redSession2  = $redSession->duplicate;
+    addToCleanup($redSession2);
+    my $redTagCheck  = WebGUI::VersionTag->getWorking($redSession2, 'nocreate');
+    is($redTagCheck, undef, 'red does not either');
+}
 
 # Local variables:
 # mode: cperl