From d2b9be686c1247dc3cfd4a369e07faaea6cbf7fb Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sat, 8 Aug 2009 16:23:08 +0000
Subject: [PATCH] Add the missing pending versions link to the manage assets in
 tag screen.

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

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 0c5137093..e5da95742 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -35,6 +35,7 @@
  - fixed Survey response startDate stored twice (Patrick Donelan, SDH Consulting)
  - fixed Survey ExpireIncompleteSurveyResponses Workflow Activity not enabled (Patrick Donelan, SDH Consulting)
  - fixed #10689: Version Tag Modes (Henry Tang, Long Term Results B.V.)
+ - fixed #10733: viewing pending version tags
 
 7.7.16
  - fixed #10590: Session::DateTime->secondsToInterval doesn't allow 7 weeks
diff --git a/lib/WebGUI/Operation/VersionTag.pm b/lib/WebGUI/Operation/VersionTag.pm
index 800ba499d..0496b451d 100644
--- a/lib/WebGUI/Operation/VersionTag.pm
+++ b/lib/WebGUI/Operation/VersionTag.pm
@@ -651,6 +651,7 @@ sub www_manageRevisionsInTag {
     $ac->addSubmenuItem($session->url->page('op=editVersionTag'), $i18n->get("add a version tag"));
     $ac->addSubmenuItem($session->url->page('op=manageCommittedVersions'), $i18n->get("manage committed versions")) if canView($session);
     $ac->addSubmenuItem($session->url->page('op=manageVersions'), $i18n->get("manage versions"));
+    $ac->addSubmenuItem($session->url->page('op=managePendingVersions'), $i18n->get("manage pending versions")) if canView($session);
 
     # Process any actions
     my $action     = lc $session->form->get('action');