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

4
lib/WebGUI/Operation/ActiveSessions.pm
View file

@ -37,7 +37,7 @@ $session->form->process("sid"). Afterwards, it calls www_viewActiveSessions.
=cut
sub www_killSession {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return www_viewActiveSessions() if $session->form->process("sid") eq $session->var->get("sessionId");
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
WebGUI::Session::end($session->form->process("sid"));
@ -54,7 +54,7 @@ delete (kill) each one via www_killSession
=cut
sub www_viewActiveSessions {
my $session = shift;
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my ($output, $p, @row, $i, $sth, %data);
tie %data, 'Tie::CPHash';