added "Turn Admin On" group

This commit is contained in:
JT Smith 2004-02-04 19:54:03 +00:00
parent b1b5ebf17f
commit 685d2d9315
7 changed files with 24 additions and 19 deletions

View file

@ -19,7 +19,7 @@ use WebGUI::URL;
#-------------------------------------------------------------------
sub process {
my ($temp, @param, $turnOn, $turnOff);
if (WebGUI::Privilege::isInGroup(4)) {
if (WebGUI::Privilege::isInGroup(5)) {
@param = WebGUI::Macro::getParams($_[0]);
if ($session{var}{adminOn}) {
$turnOff = $param[1] || WebGUI::International::get(517);

View file

@ -20,7 +20,7 @@ use WebGUI::URL;
#-------------------------------------------------------------------
sub process {
my ($temp, @param, $turnOn, $turnOff);
if (WebGUI::Privilege::canEditPage()) {
if (WebGUI::Privilege::canEditPage() && WebGUI::Privilege::isInGroup(5)) {
@param = WebGUI::Macro::getParams($_[0]);
if ($session{var}{adminOn}) {
$turnOff = $param[1] || WebGUI::International::get(517);