oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Switched macro to use new nesting mechanism.

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

18
lib/WebGUI/Macro/GroupText.pm
View file

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