diff --git a/lib/WebGUI/Macro/Page.pm b/lib/WebGUI/Macro/Page.pm new file mode 100644 index 000000000..20e72ca9f --- /dev/null +++ b/lib/WebGUI/Macro/Page.pm @@ -0,0 +1,35 @@ +package WebGUI::Macro::Page; + +#------------------------------------------------------------------- +# WebGUI is Copyright 2001-2002 Plain Black Software. +#------------------------------------------------------------------- +# 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::Macro; +use WebGUI::Session; + +#------------------------------------------------------------------- +sub _replacement { + my (@param, $temp); + @param = WebGUI::Macro::getParams($_[0]); + $temp = $session{page}{$param[0]}; + return $temp; +} + +#------------------------------------------------------------------- +sub process { + my ($output, $temp); + $output = $_[0]; + $output =~ s/\^Page\((.*?)\)\;/_replacement($1)/ge; + return $output; +} + +1; + +