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

3
docs/credits.txt
View file

@ -4,7 +4,7 @@
The following people/companies are responsible for WebGUI: The following people/companies are responsible for WebGUI:
WebGUI Core..........................JT Smith / Plain Black Software WebGUI Core..........................JT Smith / Plain Black
Contributing Developers..............Peter Beardsley / Appropriate Solutions, Inc. Contributing Developers..............Peter Beardsley / Appropriate Solutions, Inc.
Richard Caelius Richard Caelius
@ -14,6 +14,7 @@ Contributing Developers..............Peter Beardsley / Appropriate Solutions, In
Frank Dillon Frank Dillon
Koen de Jonge Koen de Jonge
Christophe Marcant Christophe Marcant
Daniel Quinlan
Translation..........................Andreas Ljunggren Translation..........................Andreas Ljunggren
Joeri de Bruin Joeri de Bruin

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;