From 935aefe78db3f64a143ddc7d74dfc385c42c19cf Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Sat, 2 Nov 2002 20:23:28 +0000
Subject: [PATCH] Added this macro which will retrieve a message from the
 internationalization system.

---
 lib/WebGUI/Macro/International.pm | 35 +++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 lib/WebGUI/Macro/International.pm

diff --git a/lib/WebGUI/Macro/International.pm b/lib/WebGUI/Macro/International.pm
new file mode 100644
index 000000000..8acb1f675
--- /dev/null
+++ b/lib/WebGUI/Macro/International.pm
@@ -0,0 +1,35 @@
+package WebGUI::Macro::International;
+
+#-------------------------------------------------------------------
+# WebGUI is Copyright 2001-2002 Plain Black LLC.
+#-------------------------------------------------------------------
+# Please read the legal notices (docs/legal.txt) and the license
+# (docs/license.txt) that came with this distribution before using
+# this software.
+#-------------------------------------------------------------------
+# http://www.plainblack.com                     info@plainblack.com
+#-------------------------------------------------------------------
+
+use strict;
+use WebGUI::International;
+use WebGUI::Macro;
+use WebGUI::Session;
+
+#-------------------------------------------------------------------
+sub _replacement {
+	my (@param);
+        @param = WebGUI::Macro::getParams($_[0]);
+	return WebGUI::International::get($param[0],$param[1]);
+}
+
+#-------------------------------------------------------------------
+sub process {
+	my ($output);
+	$output = $_[0];
+        $output =~ s/\^Env\((.*?)\)\;/_replacement($1)/ge;
+	return $output;
+}
+
+1;
+
+