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

more session changes

Browse source
This commit is contained in:
JT Smith 2006-01-02 02:54:23 +00:00
parent 657ae8baf7
commit f429daa942
27 changed files with 857 additions and 666 deletions
Download patch file Download diff file Expand all files Collapse all files

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

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