Switched macro to use new nesting mechanism.

This commit is contained in:
JT Smith 2003-02-28 05:25:18 +00:00
parent 85cdb5bd0c
commit 147aac791a
51 changed files with 133 additions and 435 deletions

View file

@ -18,7 +18,7 @@ use WebGUI::Session;
use WebGUI::SQL;
#-------------------------------------------------------------------
sub _replacement {
sub process {
my (@param, $temp, %data, $file);
tie %data, 'Tie::CPHash';
@param = WebGUI::Macro::getParams($_[0]);
@ -28,14 +28,6 @@ sub _replacement {
return $temp;
}
#-------------------------------------------------------------------
sub process {
my ($output, $temp);
$output = $_[0];
$output =~ s/\^File\((.*?)\)\;/_replacement($1)/ge;
return $output;
}
1;