From 449caaf14a0dde13c48a93699daf03c9b7565a00 Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Fri, 3 Aug 2007 20:45:33 +0000
Subject: [PATCH] fix manage committed versions

---
 docs/changelog/7.x.x.txt           | 2 ++
 lib/WebGUI/Operation/VersionTag.pm | 3 ++-
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index ef32e7b26..bf95780cd 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -1,6 +1,8 @@
 7.4.2
  - Group names can now be 100 characters long
  - prevent groups being created with duplicate names
+ - fix: Version Tags->Manage Committed Versions Not Working
+    http://www.webgui.org/bugs/tracker/version-tags-manage-committed-versions-not-working
 
 7.4.1
  - fix: crons wouldn't load into spectre's queue at startup.
diff --git a/lib/WebGUI/Operation/VersionTag.pm b/lib/WebGUI/Operation/VersionTag.pm
index 5c08d1317..7a9e79a6e 100644
--- a/lib/WebGUI/Operation/VersionTag.pm
+++ b/lib/WebGUI/Operation/VersionTag.pm
@@ -288,7 +288,8 @@ A reference to the current session.
 
 sub www_manageCommittedVersions {
     my $session = shift;
-    return $session->privilege->adminOnlycanView($session);
+    return $session->privilege->adminOnly
+        unless canView($session);
     my $ac = WebGUI::AdminConsole->new($session,"versions");
     my $i18n = WebGUI::International->new($session,"VersionTag");
     my $rollback = $i18n->get('rollback');