From 32af5f8c66f1979f6a80dd2e9551ab4079735610 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 24 May 2006 04:00:34 +0000
Subject: [PATCH] help for manage pending versions

---
 lib/WebGUI/Help/VersionTag.pm         | 17 +++++++++++++++++
 lib/WebGUI/Operation/VersionTag.pm    |  1 +
 lib/WebGUI/i18n/English/VersionTag.pm |  5 +++++
 3 files changed, 23 insertions(+)

diff --git a/lib/WebGUI/Help/VersionTag.pm b/lib/WebGUI/Help/VersionTag.pm
index 7adbeadd3..4b77c9e1e 100644
--- a/lib/WebGUI/Help/VersionTag.pm
+++ b/lib/WebGUI/Help/VersionTag.pm
@@ -7,6 +7,23 @@ our $HELP = {
 		fields => [
 		],
 		related => [
+			{
+				tag => 'manage pending versions',
+				namespace => 'VersionTag'
+			},
+		],
+	},
+
+	'manage pending versions' => {
+		title => 'manage pending versions',
+		body => 'manage pending versions body',
+		fields => [
+		],
+		related => [
+			{
+				tag => 'versions manage',
+				namespace => 'VersionTag'
+			},
 		],
 	},
 
diff --git a/lib/WebGUI/Operation/VersionTag.pm b/lib/WebGUI/Operation/VersionTag.pm
index 3c9f86212..f0aa21e45 100644
--- a/lib/WebGUI/Operation/VersionTag.pm
+++ b/lib/WebGUI/Operation/VersionTag.pm
@@ -316,6 +316,7 @@ sub www_managePendingVersions {
         }
         $sth->finish;
         $output .= '</table>';
+	$ac->setHelp('manage pending versions', 'VersionTag');
         return $ac->render($output,$i18n->get("pending versions"));
 }
 
diff --git a/lib/WebGUI/i18n/English/VersionTag.pm b/lib/WebGUI/i18n/English/VersionTag.pm
index 5c27ba7b6..eea8bd677 100644
--- a/lib/WebGUI/i18n/English/VersionTag.pm
+++ b/lib/WebGUI/i18n/English/VersionTag.pm
@@ -322,6 +322,11 @@ our $I18N = {
 		lastUpdated => 1148359381,
 	},
 
+	'manage pending versions body' => {
+		message => q|<p>This screen presents a list of pending version tags by name.  Each name is a link to display the list of revisions in this tag.</p>|,
+		lastUpdated => 0,
+	},
+
 	'topicName' => {
 		message => q|Version Control|,
 		lastUpdated => 1148360141,