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