internationalize File add/edit form labels

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;
 }

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