From 63337dcfb33a51feaf10c2acbd5778745b662070 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 12 Mar 2007 17:34:46 +0000
Subject: [PATCH] hide the rollback icon unless you are an Admin

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

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index d233c6d5f..1193b9838 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -41,6 +41,7 @@
    Veradox)
  - Wiki page revisions were not in order (perlDreamer Consulting, LLC)
  - Spectre misses Sundays (thanks to Todor Kouyoumdjiev, ECoCoMS Ltd.)
+ - fix: RollbackVersion (Thanks to Erik Svanberg for the patch)
 
 7.3.11
  - Added an option for enabling coverage tests to testCodebase.pl.
diff --git a/lib/WebGUI/Operation/VersionTag.pm b/lib/WebGUI/Operation/VersionTag.pm
index 1b68cba30..d5c211b17 100644
--- a/lib/WebGUI/Operation/VersionTag.pm
+++ b/lib/WebGUI/Operation/VersionTag.pm
@@ -364,9 +364,11 @@ sub www_manageVersions {
 		next unless ($session->user->isInGroup($tag->get("groupToUse")));
 		my $u = WebGUI::User->new($session,$tag->get("createdBy"));
 		$output .= '<tr>
-			<td>'
-				.$session->icon->delete("op=rollbackVersionTag;tagId=".$tag->getId,undef,$rollbackPrompt)
-				.$session->icon->edit("op=editVersionTag;tagId=".$tag->getId)
+			<td>';
+        if ($session->user->isInGroup(3)) {
+				$output .= $session->icon->delete("op=rollbackVersionTag;tagId=".$tag->getId,undef,$rollbackPrompt);
+        }
+        $output .= $session->icon->edit("op=editVersionTag;tagId=".$tag->getId)
 			.'</td>
 			<td><a href="'.$session->url->page("op=manageRevisionsInTag;tagId=".$tag->getId).'">'.$tag->get("name").'</a></td>
 			<td>'.$session->datetime->epochToHuman($tag->get("creationDate")).'</td>