From 3b9e34e194ab82c1cadcead9f8d435599daa2ae3 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 25 Jan 2005 19:55:49 +0000
Subject: [PATCH] internationalize File add/edit form labels

---
 lib/WebGUI/Asset/File.pm         |  4 ++--
 lib/WebGUI/i18n/English/Asset.pm | 10 ++++++++++
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Asset/File.pm b/lib/WebGUI/Asset/File.pm
index f295bbb2d..f9e45ec36 100644
--- a/lib/WebGUI/Asset/File.pm
+++ b/lib/WebGUI/Asset/File.pm
@@ -119,14 +119,14 @@ sub getEditForm {
 	my $tabform = $self->SUPER::getEditForm();
 	if ($self->get("filename") ne "") {
 		$tabform->getTab("properties")->readOnly(
-			-label=>"Current File",
+			-label=>WebGUI::International::get('current file', 'Asset'),
 			-value=>'<a href="'.$self->getFileUrl.'"><img src="'.$self->getFileIconUrl.'" alt="'.$self->get("filename").'" border="0" align="middle" /> '.$self->get("filename").'</a>'
 			);
 		
 	}
         $tabform->getTab("properties")->file(
                	-name=>"file",
-               	-label=>"New File To Upload"
+		-label=>WebGUI::International::get('new file', 'Asset'),
                	);
 	return $tabform;
 }
diff --git a/lib/WebGUI/i18n/English/Asset.pm b/lib/WebGUI/i18n/English/Asset.pm
index c8563b685..c236e95eb 100644
--- a/lib/WebGUI/i18n/English/Asset.pm
+++ b/lib/WebGUI/i18n/English/Asset.pm
@@ -208,6 +208,16 @@ The URL where the user will be redirected.
 		context => 'Help text for redirects'
 	},
 
+	'current file' => {
+		message => q|Current file|,
+		lastUpdated => 1106609809
+	},
+
+	'new file' => {
+		message => q|New file to upload|,
+		lastUpdated => 1106609855
+	},
+
 	'errorEmptyField' => {
 		message => q|<p><b>Error: Field name may not be empty.</b></p>|,
 		lastUpdated => 1089039511