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

a ton of $session fixes (thanks to Colin), and a new $session checker, that supposedly, shouldn't be needed now. It can be backed out, however, easily.

Browse source
This commit is contained in:
Matthew Wilson 2006-01-16 22:45:21 +00:00
parent 5fadc70eac
commit 09483e18c5
208 changed files with 505 additions and 533 deletions
Download patch file Download diff file Expand all files Collapse all files

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

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