From 147aac791a74ee2478eb48b6817e63b1df60583a Mon Sep 17 00:00:00 2001 From: JT Smith Date: Fri, 28 Feb 2003 05:25:18 +0000 Subject: [PATCH] Switched macro to use new nesting mechanism. --- docs/gotcha.txt | 5 ++ lib/WebGUI/Macro.pm | 61 ++++++++++++++++---- lib/WebGUI/Macro/AdminBar.pm | 14 +---- lib/WebGUI/Macro/AdminText.pm | 19 ++---- lib/WebGUI/Macro/AdminToggle.pm | 11 +--- lib/WebGUI/Macro/At_username.pm | 5 +- lib/WebGUI/Macro/Backslash_pageUrl.pm | 6 +- lib/WebGUI/Macro/C_crumbTrail.pm | 10 +--- lib/WebGUI/Macro/D_date.pm | 10 +--- lib/WebGUI/Macro/Env.pm | 13 +---- lib/WebGUI/Macro/Execute.pm | 22 ++----- lib/WebGUI/Macro/Extras.pm | 5 +- lib/WebGUI/Macro/File.pm | 10 +--- lib/WebGUI/Macro/FlexMenu.pm | 10 +--- lib/WebGUI/Macro/FormParam.pm | 12 +--- lib/WebGUI/Macro/GroupText.pm | 18 ++---- lib/WebGUI/Macro/H_homeLink.pm | 12 +--- lib/WebGUI/Macro/Hash_userId.pm | 5 +- lib/WebGUI/Macro/I_imageWithTags.pm | 9 +-- lib/WebGUI/Macro/Include.pm | 9 +-- lib/WebGUI/Macro/International.pm | 12 +--- lib/WebGUI/Macro/L_loginBox.pm | 16 +---- lib/WebGUI/Macro/LoginToggle.pm | 10 +--- lib/WebGUI/Macro/M_currentMenuVertical.pm | 10 +--- lib/WebGUI/Macro/P_previousMenuVertical.pm | 10 +--- lib/WebGUI/Macro/Page.pm | 9 +-- lib/WebGUI/Macro/PageTitle.pm | 9 +-- lib/WebGUI/Macro/Question_search.pm | 9 +-- lib/WebGUI/Macro/RootTitle.pm | 9 +-- lib/WebGUI/Macro/SQL.pm | 8 +-- lib/WebGUI/Macro/S_specificMenuVertical.pm | 10 +--- lib/WebGUI/Macro/Slash_gatewayUrl.pm | 7 +-- lib/WebGUI/Macro/Snippet.pm | 9 +-- lib/WebGUI/Macro/Splat_random.pm | 10 +--- lib/WebGUI/Macro/Synopsis.pm | 16 +++-- lib/WebGUI/Macro/T_topMenuVertical.pm | 10 +--- lib/WebGUI/Macro/Thumbnail.pm | 9 +-- lib/WebGUI/Macro/ThumbnailLinker.pm | 9 +-- lib/WebGUI/Macro/URLEncode.pm | 12 +--- lib/WebGUI/Macro/User.pm | 15 +---- lib/WebGUI/Macro/a_account.pm | 10 +--- lib/WebGUI/Macro/c_companyName.pm | 5 +- lib/WebGUI/Macro/e_companyEmail.pm | 5 +- lib/WebGUI/Macro/i_imageNoTags.pm | 9 +-- lib/WebGUI/Macro/m_currentMenuHorizontal.pm | 10 +--- lib/WebGUI/Macro/p_previousMenuHorizontal.pm | 10 +--- lib/WebGUI/Macro/r_printable.pm | 10 +--- lib/WebGUI/Macro/rootmenuHorizontal.pm | 10 +--- lib/WebGUI/Macro/s_specificMenuHorizontal.pm | 9 +-- lib/WebGUI/Macro/t_topMenuHorizontal.pm | 10 +--- lib/WebGUI/Macro/u_companyUrl.pm | 5 +- 51 files changed, 133 insertions(+), 435 deletions(-) diff --git a/docs/gotcha.txt b/docs/gotcha.txt index 05e59ab1e..a09f66689 100644 --- a/docs/gotcha.txt +++ b/docs/gotcha.txt @@ -44,6 +44,11 @@ save you many hours of grief. drop table HttpProxy; delete from Wobject where namespace='HttpProxy'; + * If you're using any custom macros you'll need to get them updated + before using this release as the macro system has changed + significantly. Macros written for versions prior to 5.2.0 + are not compatible with this version or after. + 5.1.0 -------------------------------------------------------------------- diff --git a/lib/WebGUI/Macro.pm b/lib/WebGUI/Macro.pm index 5ca46bec9..eb494fe4b 100644 --- a/lib/WebGUI/Macro.pm +++ b/lib/WebGUI/Macro.pm @@ -44,6 +44,31 @@ These functions are available from this package: +#------------------------------------------------------------------- +sub _nestedMacro { + # This sub returns the regular expression for matching nested macro's. + # Regular expression for matching balanced parenthesis + my $parenthesis = qr /\( # Start with '(', + (?: # Followed by + (?>[^()]+) # Non-parenthesis + |(??{ $parenthesis }) # Or a balanced parenthesis block + )* # zero or more times + \)/x; # Ending with ')' + + # Regular expression for matching balanced macros + my $nestedMacro = qr /\^ # Start with carat + ([^\^;()]+) # And one or more none-macro characters -tagged- + ((?: # Followed by + (??{ $parenthesis }) # a balanced parenthesis block + |(?>[^\^;]) # Or not a carat or semicolon + |(??{ $nestedMacro }) # Or a balanced carat-semicolon block + )*) # zero or more times -tagged- + ;/x; # End with a semicolon. + return $nestedMacro; +} + + + #------------------------------------------------------------------- =head2 getParams ( parameterString ) @@ -89,19 +114,33 @@ A string of HTML to be processed. =cut sub process { - my ($macro, $cmd, $output, $temp); - $output = $_[0]; - foreach $macro (keys %{$session{config}{macros}}) { - $cmd = "WebGUI::Macro::".$session{config}{macros}{$macro}."::process"; - $temp = eval{&$cmd($output)}; - if ($@) { - WebGUI::ErrorHandler::warn("Processing failed on macro: $macro: ".$@); - } else { - $output = $temp; + my $content = shift; + my $nestedMacro = &_nestedMacro; + while ($content =~ /($nestedMacro)/gs) { + my ($macro, $searchString, $params) = ($1, $2, $3); + next if ($searchString =~ /^\d+$/); # don't process ^0; ^1; ^2; etc. + next if ($searchString =~ /^\-$/); # don't process ^-; + if ($params ne "") { + #$params =~ s/^\(|\)$//; # remove opening / trailing parenthesis (doesn't seem to work) + $params =~ s/^\(//; # remove opening parenthesis + $params =~ s/\)$//; # remove trailing parenthesis + $params = &process($params); # recursive process params } - } - return $output; + if ($session{config}{macros}{$searchString} ne "") { + my $cmd = "WebGUI::Macro::".$session{config}{macros}{$searchString}."::process"; + my $result = eval{&$cmd($params)}; + if ($@) { + WebGUI::ErrorHandler::warn("Processing failed on macro: $macro: ".$@); + } else { + $macro =~ s/\^/\\\^/; + $content =~ s/$macro/$result/ges; + } + } + } + return $content; } + + 1; diff --git a/lib/WebGUI/Macro/AdminBar.pm b/lib/WebGUI/Macro/AdminBar.pm index 9f8116015..f4d03bff3 100644 --- a/lib/WebGUI/Macro/AdminBar.pm +++ b/lib/WebGUI/Macro/AdminBar.pm @@ -21,7 +21,8 @@ use WebGUI::URL; use WebGUI::Utility; #------------------------------------------------------------------- -sub _replacement { +sub process { + return "" unless ($session{var}{adminOn}); my (%hash2, $miscSelect, $adminSelect, $clipboardSelect, %hash, $output, $contentSelect, $key); tie %hash, "Tie::IxHash"; tie %hash2, "Tie::IxHash"; @@ -137,17 +138,6 @@ sub _replacement { return $output; } -#------------------------------------------------------------------- -sub process { - my ($output,$temp); - $output = $_[0]; - if ($session{var}{adminOn}) { - $output =~ s/\^AdminBar\;/_replacement()/ge; - } else { - $output =~ s/\^AdminBar\;//g; - } - return $output; -} diff --git a/lib/WebGUI/Macro/AdminText.pm b/lib/WebGUI/Macro/AdminText.pm index 19abd5770..93dc6e5cf 100644 --- a/lib/WebGUI/Macro/AdminText.pm +++ b/lib/WebGUI/Macro/AdminText.pm @@ -15,23 +15,12 @@ use WebGUI::Macro; use WebGUI::Session; #------------------------------------------------------------------- -sub _replacement { - my ($temp,@param); - @param = WebGUI::Macro::getParams(shift); - if ($session{var}{adminOn}) { - $temp = $param[0]; - } else { - $temp = ""; - } - return $temp; +sub process { + my @param = WebGUI::Macro::getParams(shift); + return "" unless ($session{var}{adminOn}); + return $param[0]; } -#------------------------------------------------------------------- -sub process { - my ($output) = @_; - $output =~ s/\^AdminText\((.*?)\)\;/_replacement($1)/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/AdminToggle.pm b/lib/WebGUI/Macro/AdminToggle.pm index 9f8ffaad5..ff8c91d35 100644 --- a/lib/WebGUI/Macro/AdminToggle.pm +++ b/lib/WebGUI/Macro/AdminToggle.pm @@ -17,7 +17,7 @@ use WebGUI::Session; use WebGUI::URL; #------------------------------------------------------------------- -sub _replacement { +sub process { my ($temp, @param, $turnOn, $turnOff); if (WebGUI::Privilege::isInGroup(4)) { @param = WebGUI::Macro::getParams($_[0]); @@ -32,15 +32,6 @@ sub _replacement { return $temp; } -#------------------------------------------------------------------- -sub process { - my ($output, $temp); - $output = $_[0]; - $output =~ s/\^AdminToggle\((.*?)\)\;/_replacement($1)/ge; - $output =~ s/\^AdminToggle\;/_replacement()/ge; - return $output; -} - 1; diff --git a/lib/WebGUI/Macro/At_username.pm b/lib/WebGUI/Macro/At_username.pm index ea377bd2a..1d6560163 100644 --- a/lib/WebGUI/Macro/At_username.pm +++ b/lib/WebGUI/Macro/At_username.pm @@ -15,10 +15,7 @@ use WebGUI::Session; #------------------------------------------------------------------- sub process { - my ($output); - $output = $_[0]; - $output =~ s/\^\@\;/$session{user}{username}/g; - return $output; + return $session{user}{username}; } diff --git a/lib/WebGUI/Macro/Backslash_pageUrl.pm b/lib/WebGUI/Macro/Backslash_pageUrl.pm index 868031cfc..b83f45f78 100644 --- a/lib/WebGUI/Macro/Backslash_pageUrl.pm +++ b/lib/WebGUI/Macro/Backslash_pageUrl.pm @@ -12,14 +12,10 @@ package WebGUI::Macro::Backslash_pageUrl; use strict; use WebGUI::Session; -use WebGUI::URL; #------------------------------------------------------------------- sub process { - my ($output); - $output = $_[0]; - $output =~ s/\^\\\;/$session{page}{url}/g; - return $output; + return $session{page}{url}; } diff --git a/lib/WebGUI/Macro/C_crumbTrail.pm b/lib/WebGUI/Macro/C_crumbTrail.pm index 9dab00f3a..0325bd453 100644 --- a/lib/WebGUI/Macro/C_crumbTrail.pm +++ b/lib/WebGUI/Macro/C_crumbTrail.pm @@ -33,7 +33,7 @@ sub _recurseCrumbTrail { } #------------------------------------------------------------------- -sub _replacement { +sub process { my (@param, $temp, $delimeter); @param = WebGUI::Macro::getParams($_[0]); if ($param[0] eq "") { @@ -46,14 +46,6 @@ sub _replacement { return $temp; } -#------------------------------------------------------------------- -sub process { - my ($output, $temp); - $output = $_[0]; - $output =~ s/\^C\((.*?)\)\;/_replacement($1)/ge; - $output =~ s/\^C\;/_replacement()/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/D_date.pm b/lib/WebGUI/Macro/D_date.pm index cb4f1758c..73d4160ec 100644 --- a/lib/WebGUI/Macro/D_date.pm +++ b/lib/WebGUI/Macro/D_date.pm @@ -15,7 +15,7 @@ use WebGUI::DateTime; use WebGUI::Macro; #------------------------------------------------------------------- -sub _replacement { +sub process { my (@param, $temp, $time); @param = WebGUI::Macro::getParams($_[0]); $time = $param[1] || time(); @@ -23,14 +23,6 @@ sub _replacement { return $temp; } -#------------------------------------------------------------------- -sub process { - my ($output); - $output = $_[0]; - $output =~ s/\^D\((.*?)\)\;/_replacement($1)/ge; - $output =~ s/\^D\;/_replacement()/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/Env.pm b/lib/WebGUI/Macro/Env.pm index 344f4b0d2..936b3de59 100644 --- a/lib/WebGUI/Macro/Env.pm +++ b/lib/WebGUI/Macro/Env.pm @@ -14,19 +14,10 @@ use strict; use WebGUI::Macro; use WebGUI::Session; -#------------------------------------------------------------------- -sub _replacement { - my (@param); - @param = WebGUI::Macro::getParams($_[0]); - return $session{env}{$param[0]}; -} - #------------------------------------------------------------------- sub process { - my ($output); - $output = $_[0]; - $output =~ s/\^Env\((.*?)\)\;/_replacement($1)/ge; - return $output; + my @param = WebGUI::Macro::getParams($_[0]); + return $session{env}{$param[0]}; } 1; diff --git a/lib/WebGUI/Macro/Execute.pm b/lib/WebGUI/Macro/Execute.pm index 166aa4118..5baabadba 100644 --- a/lib/WebGUI/Macro/Execute.pm +++ b/lib/WebGUI/Macro/Execute.pm @@ -13,24 +13,14 @@ package WebGUI::Macro::Execute; use strict; use WebGUI::Macro; -#------------------------------------------------------------------- -sub _replacement { - my (@param, $temp); - @param = WebGUI::Macro::getParams($_[0]); - if ($param[0] =~ /passwd/ || $param[0] =~ /shadow/ || $param[0] =~ /WebGUI.conf/) { - $temp = "SECURITY VIOLATION"; - } else { - $temp = `$param[0]`; - } - return $temp; -} - #------------------------------------------------------------------- sub process { - my ($output, $temp); - $output = $_[0]; - $output =~ s/\^Execute\((.*?)\)\;/_replacement($1)/ge; - return $output; + my @param = WebGUI::Macro::getParams($_[0]); + if ($param[0] =~ /passwd/ || $param[0] =~ /shadow/ || $param[0] =~ /\.conf/) { + return "SECURITY VIOLATION"; + } else { + return `$param[0]`; + } } 1; diff --git a/lib/WebGUI/Macro/Extras.pm b/lib/WebGUI/Macro/Extras.pm index 6bec8222c..21ae92b1a 100644 --- a/lib/WebGUI/Macro/Extras.pm +++ b/lib/WebGUI/Macro/Extras.pm @@ -15,10 +15,7 @@ use WebGUI::Session; #------------------------------------------------------------------- sub process { - my ($output); - $output = $_[0]; - $output =~ s/\^Extras\;/$session{config}{extrasURL}\//g; - return $output; + return $session{config}{extrasURL}."/"; } 1; diff --git a/lib/WebGUI/Macro/File.pm b/lib/WebGUI/Macro/File.pm index 413602602..288c09a8a 100644 --- a/lib/WebGUI/Macro/File.pm +++ b/lib/WebGUI/Macro/File.pm @@ -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; diff --git a/lib/WebGUI/Macro/FlexMenu.pm b/lib/WebGUI/Macro/FlexMenu.pm index cb9b2be86..e883f4523 100644 --- a/lib/WebGUI/Macro/FlexMenu.pm +++ b/lib/WebGUI/Macro/FlexMenu.pm @@ -17,7 +17,7 @@ use WebGUI::Session; use WebGUI::URL; #------------------------------------------------------------------- -sub _replacement { +sub process { my ($temp, @param); @param = WebGUI::Macro::getParams($_[0]); $temp = ''; @@ -52,14 +52,6 @@ sub _reversePageTree { return $output; } -#------------------------------------------------------------------- -sub process { - my ($output,$temp); - $output = $_[0]; - #$output =~ s/\^FlexMenu\((.*?)\)\;/_replacement($1)/ge; - $output =~ s/\^FlexMenu\;/_replacement()/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/FormParam.pm b/lib/WebGUI/Macro/FormParam.pm index 8c6985def..95fa3eb8a 100644 --- a/lib/WebGUI/Macro/FormParam.pm +++ b/lib/WebGUI/Macro/FormParam.pm @@ -15,19 +15,11 @@ use WebGUI::Macro; use WebGUI::Session; #------------------------------------------------------------------- -sub _replacement { - my (@param); - @param = WebGUI::Macro::getParams($1); +sub process { + my @param = WebGUI::Macro::getParams($1); return $session{form}{$param[0]}; } -#------------------------------------------------------------------- -sub process { - my ($output, $temp, @param); - $output = $_[0]; - $output =~ s/\^FormParam\((.*?)\)\;/_replacement($1)/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/GroupText.pm b/lib/WebGUI/Macro/GroupText.pm index d4d00b4d6..11ed01bcb 100644 --- a/lib/WebGUI/Macro/GroupText.pm +++ b/lib/WebGUI/Macro/GroupText.pm @@ -17,25 +17,17 @@ use WebGUI::Session; use WebGUI::Privilege; #------------------------------------------------------------------- -sub _replacement { - my ($temp,@param,$groupId); - @param = WebGUI::Macro::getParams($_[0]); - ($groupId) = WebGUI::SQL->quickArray("select groupId from groups where groupName=".quote($param[0])); +sub process { + my @param = WebGUI::Macro::getParams($_[0]); + my ($groupId) = WebGUI::SQL->quickArray("select groupId from groups where groupName=".quote($param[0])); $groupId = 3 if ($groupId eq ""); if (WebGUI::Privilege::isInGroup($groupId)) { - $temp = $param[1]; + return $param[1]; } else { - $temp = ""; + return ""; } - return $temp; } -#------------------------------------------------------------------- -sub process { - my ($output) = @_; - $output =~ s/\^GroupText\((.*?)\)\;/_replacement($1)/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/H_homeLink.pm b/lib/WebGUI/Macro/H_homeLink.pm index d0e2f332b..d350dd50d 100644 --- a/lib/WebGUI/Macro/H_homeLink.pm +++ b/lib/WebGUI/Macro/H_homeLink.pm @@ -17,9 +17,9 @@ use WebGUI::Session; use WebGUI::SQL; #------------------------------------------------------------------- -sub _replacement { +sub process { my (@param, $temp); - @param = WebGUI::Macro::getParams($1); + @param = WebGUI::Macro::getParams($_[0]); if ($session{setting}{defaultPage} == $session{page}{pageId}) { $temp = $session{page}{urlizedTitle}; } else { @@ -38,14 +38,6 @@ sub _replacement { return $temp; } -#------------------------------------------------------------------- -sub process { - my ($output); - $output = $_[0]; - $output =~ s/\^H\((.*?)\)\;/_replacement($1)/ge; - $output =~ s/\^H\;/_replacement()/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/Hash_userId.pm b/lib/WebGUI/Macro/Hash_userId.pm index 56e7c6184..bfab17638 100644 --- a/lib/WebGUI/Macro/Hash_userId.pm +++ b/lib/WebGUI/Macro/Hash_userId.pm @@ -15,10 +15,7 @@ use WebGUI::Session; #------------------------------------------------------------------- sub process { - my ($output); - $output = $_[0]; - $output =~ s/\^\#\;/$session{user}{userId}/g; - return $output; + return $session{user}{userId}; } diff --git a/lib/WebGUI/Macro/I_imageWithTags.pm b/lib/WebGUI/Macro/I_imageWithTags.pm index a9f2d499b..c77918b7a 100644 --- a/lib/WebGUI/Macro/I_imageWithTags.pm +++ b/lib/WebGUI/Macro/I_imageWithTags.pm @@ -18,7 +18,7 @@ use WebGUI::Session; use WebGUI::SQL; #------------------------------------------------------------------- -sub _replacement { +sub process { my (@param, $temp, %data, $image); tie %data, 'Tie::CPHash'; @param = WebGUI::Macro::getParams($_[0]); @@ -28,13 +28,6 @@ sub _replacement { return $temp; } -#------------------------------------------------------------------- -sub process { - my ($output, $temp); - $output = $_[0]; - $output =~ s/\^I\((.*?)\)\;/_replacement($1)/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/Include.pm b/lib/WebGUI/Macro/Include.pm index 30f63adad..28040cd05 100644 --- a/lib/WebGUI/Macro/Include.pm +++ b/lib/WebGUI/Macro/Include.pm @@ -15,7 +15,7 @@ use FileHandle; use WebGUI::Macro; #------------------------------------------------------------------- -sub _replacement { +sub process { my (@param, $temp, $file); @param = WebGUI::Macro::getParams($_[0]); if ($param[0] =~ /passwd/ || $param[0] =~ /shadow/ || $param[0] =~ /WebGUI.conf/) { @@ -34,13 +34,6 @@ sub _replacement { return $temp; } -#------------------------------------------------------------------- -sub process { - my ($output, $temp); - $output = $_[0]; - $output =~ s/\^Include\((.*?)\)\;/_replacement($1)/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/International.pm b/lib/WebGUI/Macro/International.pm index 14269a8ec..ea7210075 100644 --- a/lib/WebGUI/Macro/International.pm +++ b/lib/WebGUI/Macro/International.pm @@ -16,19 +16,11 @@ use WebGUI::Macro; use WebGUI::Session; #------------------------------------------------------------------- -sub _replacement { - my (@param); - @param = WebGUI::Macro::getParams($_[0]); +sub process { + my @param = WebGUI::Macro::getParams($_[0]); return WebGUI::International::get($param[0],$param[1]); } -#------------------------------------------------------------------- -sub process { - my ($output); - $output = $_[0]; - $output =~ s/\^International\((.*?)\)\;/_replacement($1)/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/L_loginBox.pm b/lib/WebGUI/Macro/L_loginBox.pm index c0b2b0388..5caf46fa6 100644 --- a/lib/WebGUI/Macro/L_loginBox.pm +++ b/lib/WebGUI/Macro/L_loginBox.pm @@ -13,7 +13,7 @@ package WebGUI::Macro::L_loginBox; use strict; use WebGUI::HTMLForm; use WebGUI::International; -use WebGUI::Macro::Backslash_pageUrl; +use WebGUI::Macro; use WebGUI::Session; use WebGUI::URL; @@ -23,7 +23,7 @@ sub _createURL { } #------------------------------------------------------------------- -sub _replacement { +sub process { my ($temp,$boxSize,@param,$text,$f); @param = WebGUI::Macro::getParams($_[0]); $temp = '
'; @@ -34,11 +34,10 @@ sub _replacement { $temp .= ' '.$session{user}{username}.'. '; $temp .= WebGUI::International::get(49); - $temp = WebGUI::Macro::Backslash_pageUrl::process($temp); } else { $text =~ s/%(.*?)%/_createURL($1)/ge; - $temp .= WebGUI::Macro::Backslash_pageUrl::process($text); } + $temp = WebGUI::Macro::process($temp); } else { $boxSize = $param[0]; if (not defined $boxSize) { @@ -64,14 +63,5 @@ sub _replacement { return $temp; } -#------------------------------------------------------------------- -sub process { - my ($output, $temp); - $output = $_[0]; - $output =~ s/\^L\((.*?)\)\;/_replacement($1)/ge; - $output =~ s/\^L\;/_replacement()/ge; - return $output; -} - 1; diff --git a/lib/WebGUI/Macro/LoginToggle.pm b/lib/WebGUI/Macro/LoginToggle.pm index 232016f88..0874ffa71 100644 --- a/lib/WebGUI/Macro/LoginToggle.pm +++ b/lib/WebGUI/Macro/LoginToggle.pm @@ -17,7 +17,7 @@ use WebGUI::Session; use WebGUI::URL; #------------------------------------------------------------------- -sub _replacement { +sub process { my (@param, $temp, $login, $logout); @param = WebGUI::Macro::getParams($_[0]); if ($session{user}{userId} == 1) { @@ -30,14 +30,6 @@ sub _replacement { return $temp; } -#------------------------------------------------------------------- -sub process { - my ($output, $temp); - $output = $_[0]; - $output =~ s/\^LoginToggle\((.*?)\)\;/_replacement($1)/ge; - $output =~ s/\^LoginToggle\;/_replacement()/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/M_currentMenuVertical.pm b/lib/WebGUI/Macro/M_currentMenuVertical.pm index ec2f2d56e..719fafa9c 100644 --- a/lib/WebGUI/Macro/M_currentMenuVertical.pm +++ b/lib/WebGUI/Macro/M_currentMenuVertical.pm @@ -16,7 +16,7 @@ use WebGUI::Navigation; use WebGUI::Session; #------------------------------------------------------------------- -sub _replacement { +sub process { my ($tree, $temp, @param); @param = WebGUI::Macro::getParams($_[0]); $temp = ''; @@ -30,14 +30,6 @@ sub _replacement { return $temp; } -#------------------------------------------------------------------- -sub process { - my ($output, $temp, @param); - $output = $_[0]; - $output =~ s/\^M\((.*?)\)\;/_replacement($1)/ge; - $output =~ s/\^M\;/_replacement()/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/P_previousMenuVertical.pm b/lib/WebGUI/Macro/P_previousMenuVertical.pm index f681f517b..a3606f0be 100644 --- a/lib/WebGUI/Macro/P_previousMenuVertical.pm +++ b/lib/WebGUI/Macro/P_previousMenuVertical.pm @@ -16,7 +16,7 @@ use WebGUI::Navigation; use WebGUI::Session; #------------------------------------------------------------------- -sub _replacement { +sub process { my ($temp, @param, $tree); @param = WebGUI::Macro::getParams($_[0]); $temp = ''; @@ -30,14 +30,6 @@ sub _replacement { return $temp; } -#------------------------------------------------------------------- -sub process { - my ($output,$temp); - $output = $_[0]; - $output =~ s/\^P\((.*?)\)\;/_replacement($1)/ge; - $output =~ s/\^P\;/_replacement()/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/Page.pm b/lib/WebGUI/Macro/Page.pm index ddd3bdf10..77487ddca 100644 --- a/lib/WebGUI/Macro/Page.pm +++ b/lib/WebGUI/Macro/Page.pm @@ -15,20 +15,13 @@ use WebGUI::Macro; use WebGUI::Session; #------------------------------------------------------------------- -sub _replacement { +sub process { 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; diff --git a/lib/WebGUI/Macro/PageTitle.pm b/lib/WebGUI/Macro/PageTitle.pm index 8ffa7e302..7061e1ba0 100644 --- a/lib/WebGUI/Macro/PageTitle.pm +++ b/lib/WebGUI/Macro/PageTitle.pm @@ -15,7 +15,7 @@ use WebGUI::Session; use WebGUI::URL; #------------------------------------------------------------------- -sub _replacement { +sub process { if ($session{env}{QUERY_STRING} =~ /op/ || $session{env}{QUERY_STRING} =~ /func/) { return ''.$session{page}{title}.''; } else { @@ -23,13 +23,6 @@ sub _replacement { } } -#------------------------------------------------------------------- -sub process { - my ($output); - $output = $_[0]; - $output =~ s/\^PageTitle\;/_replacement()/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/Question_search.pm b/lib/WebGUI/Macro/Question_search.pm index a284fe2a5..25c3cecab 100644 --- a/lib/WebGUI/Macro/Question_search.pm +++ b/lib/WebGUI/Macro/Question_search.pm @@ -17,7 +17,7 @@ use WebGUI::Session; use WebGUI::URL; #------------------------------------------------------------------- -sub _replacement { +sub process { my ($f); $f = WebGUI::HTMLForm->new(1); $f->hidden("op","search"); @@ -26,12 +26,5 @@ sub _replacement { return $f->print; } -#------------------------------------------------------------------- -sub process { - my ($output); - $output = $_[0]; - $output =~ s/\^\?\;/_replacement()/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/RootTitle.pm b/lib/WebGUI/Macro/RootTitle.pm index b384b6ea0..946cc10b0 100644 --- a/lib/WebGUI/Macro/RootTitle.pm +++ b/lib/WebGUI/Macro/RootTitle.pm @@ -18,7 +18,7 @@ use WebGUI::SQL; use WebGUI::URL; #------------------------------------------------------------------- -sub _recurse { +sub process { my ($sth, %data, $output); tie %data, 'Tie::CPHash'; %data = WebGUI::SQL->quickHash("select pageId,parentId,title,urlizedTitle from page where pageId=$_[0]"); @@ -30,13 +30,6 @@ sub _recurse { return $output; } -#------------------------------------------------------------------- -sub process { - my ($output); - $output = $_[0]; - $output =~ s/\^RootTitle\;/_recurse($session{page}{parentId})/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/SQL.pm b/lib/WebGUI/Macro/SQL.pm index f8eb3b297..1a7ecb4dd 100644 --- a/lib/WebGUI/Macro/SQL.pm +++ b/lib/WebGUI/Macro/SQL.pm @@ -15,7 +15,8 @@ use WebGUI::Macro; use WebGUI::Session; use WebGUI::SQL; -sub _replacement { +#------------------------------------------------------------------- +sub process { my ($output, @data, $rownum, $temp); my ($statement, $format) = WebGUI::Macro::getParams(shift); $format = '^0;' if ($format eq ""); @@ -37,11 +38,6 @@ sub _replacement { } } -sub process { - my $output = shift; - $output =~ s/\^SQL\((.*?)\)\;/_replacement($1)/ges; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/S_specificMenuVertical.pm b/lib/WebGUI/Macro/S_specificMenuVertical.pm index 3b58da1c9..cb33e148c 100644 --- a/lib/WebGUI/Macro/S_specificMenuVertical.pm +++ b/lib/WebGUI/Macro/S_specificMenuVertical.pm @@ -17,7 +17,7 @@ use WebGUI::Session; use WebGUI::SQL; #------------------------------------------------------------------- -sub _replacement { +sub process { my ($temp, @param, $pageId, $tree); @param = WebGUI::Macro::getParams($_[0]); ($pageId) = WebGUI::SQL->quickArray("select pageId from page where urlizedTitle='$param[0]'"); @@ -34,14 +34,6 @@ sub _replacement { return $temp; } -#------------------------------------------------------------------- -sub process { - my ($output,$temp, @param, @data); - $output = $_[0]; - $output =~ s/\^S\((.*?)\)\;/_replacement($1)/ge; - $output =~ s/\^S\;/_replacement()/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/Slash_gatewayUrl.pm b/lib/WebGUI/Macro/Slash_gatewayUrl.pm index 73e24ce45..32604cef6 100644 --- a/lib/WebGUI/Macro/Slash_gatewayUrl.pm +++ b/lib/WebGUI/Macro/Slash_gatewayUrl.pm @@ -12,15 +12,10 @@ package WebGUI::Macro::Slash_gatewayUrl; use strict; use WebGUI::Session; -use WebGUI::URL; #------------------------------------------------------------------- sub process { - my ($output, $temp); - $output = $_[0]; - $temp = $session{config}{scripturl}.'/'; - $output =~ s/\^\/\;/$temp/g; - return $output; + return $session{config}{scripturl}.'/'; } diff --git a/lib/WebGUI/Macro/Snippet.pm b/lib/WebGUI/Macro/Snippet.pm index bfd1549ba..e3cdb251e 100644 --- a/lib/WebGUI/Macro/Snippet.pm +++ b/lib/WebGUI/Macro/Snippet.pm @@ -17,20 +17,13 @@ use WebGUI::Session; use WebGUI::SQL; #------------------------------------------------------------------- -sub _replacement { +sub process { my (@param, $temp); @param = WebGUI::Macro::getParams($_[0]); ($temp) = WebGUI::SQL->quickArray("select parameters from collateral where name=".quote($param[0])); return WebGUI::Macro::process($temp); } -#------------------------------------------------------------------- -sub process { - my ($output, $temp); - $output = $_[0]; - $output =~ s/\^Snippet\((.*?)\)\;/_replacement($1)/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/Splat_random.pm b/lib/WebGUI/Macro/Splat_random.pm index 1f817bd2b..d86eea1c6 100644 --- a/lib/WebGUI/Macro/Splat_random.pm +++ b/lib/WebGUI/Macro/Splat_random.pm @@ -15,7 +15,7 @@ use WebGUI::Macro; use WebGUI::Utility; #------------------------------------------------------------------- -sub _replacement { +sub process { my ($temp, @param); @param = WebGUI::Macro::getParams($_[0]); if ($param[0] ne "") { @@ -26,14 +26,6 @@ sub _replacement { return $temp; } -#------------------------------------------------------------------- -sub process { - my ($output,$temp); - $output = $_[0]; - $output =~ s/\^\*\((.*?)\)\;/_replacement($1)/ge; - $output =~ s/\^\*\;/_replacement()/ge; - return $output; -} diff --git a/lib/WebGUI/Macro/Synopsis.pm b/lib/WebGUI/Macro/Synopsis.pm index e55d7a121..a7d2df2a1 100644 --- a/lib/WebGUI/Macro/Synopsis.pm +++ b/lib/WebGUI/Macro/Synopsis.pm @@ -11,8 +11,10 @@ package WebGUI::Macro::Synopsis; #------------------------------------------------------------------- use strict; +use WebGUI::Privilege; use WebGUI::Session; - +use WebGUI::SQL; +use WebGUI::URL; #------------------------------------------------------------------- sub traversePageTreeSynopsis { @@ -50,15 +52,11 @@ sub traversePageTreeSynopsis { #------------------------------------------------------------------- sub process { - my ($output) = @_; - # Singleton - if ($output =~ /\^Synopsis\;/) { - $output =~ s/\^Synopsis;/$session{page}{synopsis}/g; - return $output; + if ($_[0]) { + return traversePageTreeSynopsis($session{page}{pageId},0,$_[0]); + } else { + return $session{page}{synopsis}; } - # Tree - $output =~ s/\^Synopsis\((\d+)\)\;/traversePageTreeSynopsis($session{page}{pageId},0,$1)/eg; - return $output; } 1; diff --git a/lib/WebGUI/Macro/T_topMenuVertical.pm b/lib/WebGUI/Macro/T_topMenuVertical.pm index 3fc1d56ce..5020c8721 100644 --- a/lib/WebGUI/Macro/T_topMenuVertical.pm +++ b/lib/WebGUI/Macro/T_topMenuVertical.pm @@ -15,7 +15,7 @@ use WebGUI::Macro; use WebGUI::Navigation; #------------------------------------------------------------------- -sub _replacement { +sub process { my ($temp, @param, $tree); @param = WebGUI::Macro::getParams($_[0]); $temp = ''; @@ -29,14 +29,6 @@ sub _replacement { return $temp; } -#------------------------------------------------------------------- -sub process { - my ($output,$temp); - $output = $_[0]; - $output =~ s/\^T\((.*?)\)\;/_replacement($1)/ge; - $output =~ s/\^T\;/_replacement()/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/Thumbnail.pm b/lib/WebGUI/Macro/Thumbnail.pm index 5d82ec281..9090cf227 100644 --- a/lib/WebGUI/Macro/Thumbnail.pm +++ b/lib/WebGUI/Macro/Thumbnail.pm @@ -18,7 +18,7 @@ use WebGUI::Session; use WebGUI::SQL; #------------------------------------------------------------------- -sub _replacement { +sub process { my (@param, %data, $image); tie %data, 'Tie::CPHash'; @param = WebGUI::Macro::getParams($_[0]); @@ -27,13 +27,6 @@ sub _replacement { return $image->getThumbnail; } -#------------------------------------------------------------------- -sub process { - my ($output, $temp); - $output = $_[0]; - $output =~ s/\^Thumbnail\((.*?)\)\;/_replacement($1)/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/ThumbnailLinker.pm b/lib/WebGUI/Macro/ThumbnailLinker.pm index d0bb9cc0c..016cf30ad 100644 --- a/lib/WebGUI/Macro/ThumbnailLinker.pm +++ b/lib/WebGUI/Macro/ThumbnailLinker.pm @@ -18,7 +18,7 @@ use WebGUI::Session; use WebGUI::SQL; #------------------------------------------------------------------- -sub _replacement { +sub process { my (@param, %data, $image, $output); tie %data, 'Tie::CPHash'; @param = WebGUI::Macro::getParams($_[0]); @@ -29,13 +29,6 @@ sub _replacement { return $output; } -#------------------------------------------------------------------- -sub process { - my ($output, $temp); - $output = $_[0]; - $output =~ s/\^ThumbnailLinker\((.*?)\)\;/_replacement($1)/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/URLEncode.pm b/lib/WebGUI/Macro/URLEncode.pm index d3306c53f..7fc12c823 100644 --- a/lib/WebGUI/Macro/URLEncode.pm +++ b/lib/WebGUI/Macro/URLEncode.pm @@ -16,19 +16,11 @@ use WebGUI::Session; use WebGUI::URL; #------------------------------------------------------------------- -sub _replacement { - my (@param); - @param = WebGUI::Macro::getParams($1); +sub process { + my @param = WebGUI::Macro::getParams($1); return WebGUI::URL::escape($param[0]); } -#------------------------------------------------------------------- -sub process { - my ($output, $temp, @param); - $output = $_[0]; - $output =~ s/\^URLEncode\((.*?)\)\;/_replacement($1)/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/User.pm b/lib/WebGUI/Macro/User.pm index 4c900c7b5..715698e7a 100644 --- a/lib/WebGUI/Macro/User.pm +++ b/lib/WebGUI/Macro/User.pm @@ -15,20 +15,11 @@ use WebGUI::Macro; use WebGUI::Session; #------------------------------------------------------------------- -sub _replacement { - my (@param, $temp); - @param = WebGUI::Macro::getParams($_[0]); - $temp = $session{user}{$param[0]}; - return $temp; +sub process { + my @param = WebGUI::Macro::getParams($_[0]); + return $session{user}{$param[0]}; } -#------------------------------------------------------------------- -sub process { - my ($output, $temp); - $output = $_[0]; - $output =~ s/\^User\((.*?)\)\;/_replacement($1)/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/a_account.pm b/lib/WebGUI/Macro/a_account.pm index bc95ed2c6..d4110715f 100644 --- a/lib/WebGUI/Macro/a_account.pm +++ b/lib/WebGUI/Macro/a_account.pm @@ -17,7 +17,7 @@ use WebGUI::Session; use WebGUI::URL; #------------------------------------------------------------------- -sub _replacement { +sub process { my (@param, $temp); @param = WebGUI::Macro::getParams($_[0]); $temp = WebGUI::URL::page('op=displayAccount'); @@ -33,14 +33,6 @@ sub _replacement { return $temp; } -#------------------------------------------------------------------- -sub process { - my ($output, $temp); - $output = $_[0]; - $output =~ s/\^a\((.*?)\)\;/_replacement($1)/ge; - $output =~ s/\^a\;/_replacement()/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/c_companyName.pm b/lib/WebGUI/Macro/c_companyName.pm index dea6b4d6d..dbdb2ac7a 100644 --- a/lib/WebGUI/Macro/c_companyName.pm +++ b/lib/WebGUI/Macro/c_companyName.pm @@ -15,10 +15,7 @@ use WebGUI::Session; #------------------------------------------------------------------- sub process { - my ($output); - $output = $_[0]; - $output =~ s/\^c\;/$session{setting}{companyName}/g; - return $output; + return $session{setting}{companyName}; } 1; diff --git a/lib/WebGUI/Macro/e_companyEmail.pm b/lib/WebGUI/Macro/e_companyEmail.pm index 0d38cd195..2dcef8ee4 100644 --- a/lib/WebGUI/Macro/e_companyEmail.pm +++ b/lib/WebGUI/Macro/e_companyEmail.pm @@ -15,10 +15,7 @@ use WebGUI::Session; #------------------------------------------------------------------- sub process { - my ($output); - $output = $_[0]; - $output =~ s/\^e\;/$session{setting}{companyEmail}/g; - return $output; + return $session{setting}{companyEmail}; } 1; diff --git a/lib/WebGUI/Macro/i_imageNoTags.pm b/lib/WebGUI/Macro/i_imageNoTags.pm index 8a8051ab9..c43875a13 100644 --- a/lib/WebGUI/Macro/i_imageNoTags.pm +++ b/lib/WebGUI/Macro/i_imageNoTags.pm @@ -18,7 +18,7 @@ use WebGUI::Session; use WebGUI::SQL; #------------------------------------------------------------------- -sub _replacement { +sub process { my (@param, $image, %data); tie %data, 'Tie::CPHash'; @param = WebGUI::Macro::getParams($_[0]); @@ -27,13 +27,6 @@ sub _replacement { return $image->getURL; } -#------------------------------------------------------------------- -sub process { - my ($output, $temp); - $output = $_[0]; - $output =~ s/\^i\((.*?)\)\;/_replacement($1)/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/m_currentMenuHorizontal.pm b/lib/WebGUI/Macro/m_currentMenuHorizontal.pm index 6b94cf57b..15089c3fa 100644 --- a/lib/WebGUI/Macro/m_currentMenuHorizontal.pm +++ b/lib/WebGUI/Macro/m_currentMenuHorizontal.pm @@ -16,7 +16,7 @@ use WebGUI::Navigation; use WebGUI::Session; #------------------------------------------------------------------- -sub _replacement { +sub process { my ($temp, @param, $tree); @param = WebGUI::Macro::getParams($_[0]); $tree = WebGUI::Navigation::tree($session{page}{pageId},1); @@ -26,14 +26,6 @@ sub _replacement { return $temp; } -#------------------------------------------------------------------- -sub process { - my ($output, $temp, @data, $sth, $first); - $output = $_[0]; - $output =~ s/\^m\((.*?)\)\;/_replacement($1)/ge; - $output =~ s/\^m\;/_replacement()/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/p_previousMenuHorizontal.pm b/lib/WebGUI/Macro/p_previousMenuHorizontal.pm index 2f4ad6afd..1a67e4e21 100644 --- a/lib/WebGUI/Macro/p_previousMenuHorizontal.pm +++ b/lib/WebGUI/Macro/p_previousMenuHorizontal.pm @@ -17,7 +17,7 @@ use WebGUI::Session; use WebGUI::SQL; #------------------------------------------------------------------- -sub _replacement { +sub process { my ($temp, $tree, @param); @param = WebGUI::Macro::getParams($_[0]); $tree = WebGUI::Navigation::tree($session{page}{parentId},1); @@ -27,14 +27,6 @@ sub _replacement { return $temp; } -#------------------------------------------------------------------- -sub process { - my ($output, $temp, @data, $sth, $first); - $output = $_[0]; - $output =~ s/\^p\((.*?)\)\;/_replacement($1)/ge; - $output =~ s/\^p\;/_replacement()/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/r_printable.pm b/lib/WebGUI/Macro/r_printable.pm index b0fe523a0..baa1f7bad 100644 --- a/lib/WebGUI/Macro/r_printable.pm +++ b/lib/WebGUI/Macro/r_printable.pm @@ -19,7 +19,7 @@ use WebGUI::URL; use WebGUI::Utility; #------------------------------------------------------------------- -sub _replacement { +sub process { my ($temp, @param, $styleId); @param = WebGUI::Macro::getParams($_[0]); $temp = WebGUI::URL::append($session{env}{REQUEST_URI},'makePrintable=1'); @@ -41,14 +41,6 @@ sub _replacement { return $temp; } -#------------------------------------------------------------------- -sub process { - my ($output, $temp); - $output = $_[0]; - $output =~ s/\^r\((.*?)\)\;/_replacement($1)/ge; - $output =~ s/\^r\;/_replacement()/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/rootmenuHorizontal.pm b/lib/WebGUI/Macro/rootmenuHorizontal.pm index 9c37341d6..2cbc67d3d 100644 --- a/lib/WebGUI/Macro/rootmenuHorizontal.pm +++ b/lib/WebGUI/Macro/rootmenuHorizontal.pm @@ -16,7 +16,7 @@ use WebGUI::Navigation; use WebGUI::Session; #------------------------------------------------------------------- -sub _replacement { +sub process { my @param = WebGUI::Macro::getParams($_[0]); my $tree = WebGUI::Navigation::tree(0,1); my $temp = ''; @@ -25,14 +25,6 @@ sub _replacement { return $temp; } -#------------------------------------------------------------------- -sub process { - my ($output); - $output = $_[0]; - $output =~ s/\^rootmenu\;/_replacement()/ge; - $output =~ s/\^rootmenu\((.*?)\)\;/_replacement($1)/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/s_specificMenuHorizontal.pm b/lib/WebGUI/Macro/s_specificMenuHorizontal.pm index a8bd6cb06..b16ab9826 100644 --- a/lib/WebGUI/Macro/s_specificMenuHorizontal.pm +++ b/lib/WebGUI/Macro/s_specificMenuHorizontal.pm @@ -16,7 +16,7 @@ use WebGUI::Navigation; use WebGUI::Session; #------------------------------------------------------------------- -sub _replacement { +sub process { my ($temp, $tree, $parentId, @param); @param = WebGUI::Macro::getParams($_[0]); $temp = ''; @@ -27,13 +27,6 @@ sub _replacement { return $temp; } -#------------------------------------------------------------------- -sub process { - my ($output); - $output = $_[0]; - $output =~ s/\^s\((.*?)\)\;/_replacement($1)/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/t_topMenuHorizontal.pm b/lib/WebGUI/Macro/t_topMenuHorizontal.pm index 493fa975f..ae2c6b0b5 100644 --- a/lib/WebGUI/Macro/t_topMenuHorizontal.pm +++ b/lib/WebGUI/Macro/t_topMenuHorizontal.pm @@ -16,7 +16,7 @@ use WebGUI::Navigation; use WebGUI::Session; #------------------------------------------------------------------- -sub _replacement { +sub process { my ($temp, $tree, @param); @param = WebGUI::Macro::getParams($_[0]); $tree = WebGUI::Navigation::tree(1,1); @@ -26,14 +26,6 @@ sub _replacement { return $temp; } -#------------------------------------------------------------------- -sub process { - my ($output, $temp, @data, $sth, $first); - $output = $_[0]; - $output =~ s/\^t\((.*?)\)\;/_replacement($1)/ge; - $output =~ s/\^t\;/_replacement()/ge; - return $output; -} 1; diff --git a/lib/WebGUI/Macro/u_companyUrl.pm b/lib/WebGUI/Macro/u_companyUrl.pm index f7b796447..4e3cddece 100644 --- a/lib/WebGUI/Macro/u_companyUrl.pm +++ b/lib/WebGUI/Macro/u_companyUrl.pm @@ -15,10 +15,7 @@ use WebGUI::Session; #------------------------------------------------------------------- sub process { - my ($output); - $output = $_[0]; - $output =~ s/\^u\;/$session{setting}{companyURL}/g; - return $output; + return $session{setting}{companyURL}; } 1;