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

Added AdminText and GroupText macros.

Browse source
This commit is contained in:
JT Smith 2002-07-05 01:19:43 +00:00
parent 3c9e939566
commit b4307c02a0
3 changed files with 80 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

37
lib/WebGUI/Macro/AdminText.pm Normal file
View file

@ -0,0 +1,37 @@
package WebGUI::Macro::AdminText;
#-------------------------------------------------------------------
# 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 ($temp,@param);
@param = WebGUI::Macro::getParams(shift);
if ($session{var}{adminOn}) {
$temp = $param[0];
} else {
$temp = "";
}
return $temp;
}
#-------------------------------------------------------------------
sub process {
my ($output) = @_;
$output =~ s/\^AdminText\((.*?)\)\;/$1/ge;
return $output;
}
1;

41
lib/WebGUI/Macro/GroupText.pm Normal file
View file

@ -0,0 +1,41 @@
package WebGUI::Macro::GroupText;
#-------------------------------------------------------------------
# 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::SQL;
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]));
$groupId = 3 if ($groupId eq "");
if (WebGUI::Privilege::isInGroup($groupId)) {
$temp = $param[1];
} else {
$temp = "";
}
return $temp;
}
#-------------------------------------------------------------------
sub process {
my ($output) = @_;
$output =~ s/\^GroupText\((.*?)\)\;/_replacement($1)/ge;
return $output;
}
1;