From e97c4b2d14989499b1ea7197f638e8e394b3286b Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Thu, 23 Jan 2003 04:52:13 +0000
Subject: [PATCH] added some extra export information

---
 lib/WebGUI/Operation/International.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/lib/WebGUI/Operation/International.pm b/lib/WebGUI/Operation/International.pm
index 381bfae98..fed401afe 100644
--- a/lib/WebGUI/Operation/International.pm
+++ b/lib/WebGUI/Operation/International.pm
@@ -36,13 +36,15 @@ sub _export {
         my ($sth, %data, $export);
         tie %data, 'Tie::CPHash';
         %data = WebGUI::SQL->quickHash("select * from language where languageId=".$_[0]);
-        $export = "#".$data{language}." translation export for WebGUI ".$WebGUI::VERSION.".\n\n";
+	$export = "#Exported from ".$session{setting}{companyName}." (http://".$session{env}{SERVER_NAME}.") by "
+		.$session{user}{username}." (".$session{user}{email}.")\n";
+        $export .= "#".$data{language}." translation export for WebGUI ".$WebGUI::VERSION.".\n\n";
         $export .= "#language\n\n";
         $export .= "delete from language where languageId=".$_[0].";\n";
         $export .= "insert into language (languageId,language,characterSet,toolbar) values ("
         	.$data{languageId}.", ".quote($data{language}).", ".quote($data{characterSet}).", "
 		.quote($data{toolbar}).");\n";
-        $export .= "\n#international\n\n";
+        $export .= "\n#international messages\n\n";
         $sth = WebGUI::SQL->read("select * from international where languageId=".$_[0]." order by lastUpdated desc");
         while (%data = $sth->hash) {
                 $export .= "delete from international where languageId=".$_[0]." and namespace="