From 45b61ec3ac9196f771dc21eb38cb71f8d4919ede Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 16 May 2006 04:21:20 +0000
Subject: [PATCH] i18n'ed three headers in Asset/www_manageVersions Wrote help
 for Asset/www_manageVersions

---
 lib/WebGUI/AssetVersioning.pm    |  6 ++++--
 lib/WebGUI/Help/Asset.pm         | 10 ++++++++++
 lib/WebGUI/i18n/English/Asset.pm | 21 +++++++++++++++++++--
 3 files changed, 33 insertions(+), 4 deletions(-)

diff --git a/lib/WebGUI/AssetVersioning.pm b/lib/WebGUI/AssetVersioning.pm
index c3aa4a44a..6cbe4d045 100644
--- a/lib/WebGUI/AssetVersioning.pm
+++ b/lib/WebGUI/AssetVersioning.pm
@@ -264,8 +264,9 @@ sub www_manageRevisions {
         my $ac = WebGUI::AdminConsole->new($self->session,"versions");
         return $self->session->privilege->insufficient() unless ($self->canEdit);
         my $i18n = WebGUI::International->new($self->session,"Asset");
-        my $output = '<table width=100% class="content">
-        <tr><th></th><th>Revision Date</th><th>Revised By</th><th>Tag Name</th></tr> ';
+        my $output = sprintf '<table width=100% class="content">
+        <tr><th></th><th>%s</th><th>%s</th><th>%s</th></tr> ',
+	$i18n->get('revision date'), $i18n->get('revised by'), $i18n->get('tag name');
         my $sth = $self->session->db->read("select assetData.revisionDate, users.username, assetVersionTag.name,assetData.tagId from assetData 
 		left join assetVersionTag on assetData.tagId=assetVersionTag.tagId left join users on assetData.revisedBy=users.userId
 		where assetData.assetId=".$self->session->db->quote($self->getId));
@@ -281,6 +282,7 @@ sub www_manageRevisions {
         }
         $sth->finish;
         $output .= '</table>';
+	$ac->setHelp('manage versions','Asset');
         return $ac->render($output,$i18n->get("committed versions", "VersionTag").": ".$self->getTitle);
 }
 
diff --git a/lib/WebGUI/Help/Asset.pm b/lib/WebGUI/Help/Asset.pm
index 1de12cd91..b112699c8 100644
--- a/lib/WebGUI/Help/Asset.pm
+++ b/lib/WebGUI/Help/Asset.pm
@@ -173,6 +173,7 @@ our $HELP = {
 			},
 		],
 	},
+
 	'metadata edit property' => {
                 title => 'metadata edit property',
                 body => 'metadata edit property body',
@@ -218,6 +219,15 @@ our $HELP = {
                 ],
         },
 
+	'manage versions' => {
+		title => 'committed versions',
+		body => 'manage versions body',
+		fields => [
+		],
+		related => [
+		]
+	},
+
 	'asset list' => {
 		title => 'asset list title',
 		body => 'asset list body',
diff --git a/lib/WebGUI/i18n/English/Asset.pm b/lib/WebGUI/i18n/English/Asset.pm
index fcd0eac98..3f4017d54 100644
--- a/lib/WebGUI/i18n/English/Asset.pm
+++ b/lib/WebGUI/i18n/English/Asset.pm
@@ -120,13 +120,19 @@ our $I18N = {
 		lastUpdated => 0,
 		context => q|manage revisions in tag|
 	},
-	
+
 	'revision date' => {
 		message => q|Revision Date|,
 		lastUpdated => 0,
 		context => q|manage revisions in tag|
 	},
-	
+
+	'tag name' => {
+		message => q|Tag Name|,
+		lastUpdated => 0,
+		context => q|manage revisions in tag|
+	},
+
 	'type' => {
 		message => q|Type|,
 		lastUpdated => 0,
@@ -795,6 +801,17 @@ Couldn't open %-s because %-s <br />
 		lastUpdated => 1129420080,
 	},
 
+	'committed versions' => {
+		message => q|Committed Versions|,
+		lastUpdated => 0,
+		context => q|Admin console label for manage versions.|
+	},
+
+	'manage versions body' => {
+		message => q|<p>This screen displays a list of all versions for the current Asset, showing the date it was committed or opened, who owns the tag for that version, and the name of the version tag.  Icons will allow you purge a revision and remove it from the system or to view that particular version of the  Asset.  The version tag name is a link that will take you to the Manage Revisions in Tag screen.|,
+		lastUpdated => 0,
+	},
+
 	'topicName' => {
 		message => q|Assets|,
 		lastUpdated => 1128920336,