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

merged WebGUI::Groupings with WebGUI::Group and WebGUI::User

Browse source 
changed WebGUI::Group api to work with the new session api
This commit is contained in:
JT Smith 2006-01-11 03:27:07 +00:00
parent 8071a041fa
commit c74c1bdcbc
55 changed files with 866 additions and 994 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Operation/Admin.pm
View file

@ -35,7 +35,7 @@ If the current user is in the Turn On Admin Group, then return an Admin Console.
sub www_adminConsole {
my $session = shift;
return "" unless (WebGUI::Grouping::isInGroup(12));
return "" unless ($session->user->isInGroup(12));
my $ac = WebGUI::AdminConsole->new;
return $ac->render;
}
@ -52,7 +52,7 @@ via WebGUI::Session::switchAdminOff()
sub www_switchOffAdmin {
my $session = shift;
return "" unless (WebGUI::Grouping::isInGroup(12));
return "" unless ($session->user->isInGroup(12));
WebGUI::Session::switchAdminOff();
return "";
}
@ -68,7 +68,7 @@ via WebGUI::Session::switchAdminOn()
sub www_switchOnAdmin {
my $session = shift;
return "" unless (WebGUI::Grouping::isInGroup(12));
return "" unless ($session->user->isInGroup(12));
WebGUI::Session::switchAdminOn();
return "";
}