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

removal of dumpSession.

Browse source
This commit is contained in:
Matthew Wilson 2006-01-26 05:39:16 +00:00
parent 7d1dfed519
commit 4a3121960f
199 changed files with 379 additions and 404 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lib/WebGUI/Operation/User.pm
View file

@ -56,7 +56,7 @@ Help topic. If set, then a Help icon will be displayed as a link to that topic.
=cut
sub _submenu {
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $workarea = shift;
my $title = shift;
my $i18n = WebGUI::International->new($session);
@ -105,7 +105,7 @@ Array reference, used to screen out user names via a SQL "not in ()" clause.
#-------------------------------------------------------------------
sub doUserSearch {
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $op = shift;
my $returnPaginator = shift;
my $userFilter = shift;
@ -157,7 +157,7 @@ Hashref. A set of key,value pairs that will be hidden in the user search form.
#-------------------------------------------------------------------
sub getUserSearchForm {
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $op = shift;
my $params = shift;
$session->scratch->set("userSearchKeyword",$session->form->process("keyword"));
@ -220,7 +220,7 @@ Allows an administrator to assume another user.
=cut
sub www_becomeUser {
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
$session->user({userId=>$session->form->process("uid")});
$session->var->end($session->var->get("sessionId"));
@ -240,7 +240,7 @@ of the user to delete is expected in a URL param names 'uid'.
=cut
sub www_deleteUser {
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my ($output);
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my $i18n = WebGUI::International->new($session);
@ -267,7 +267,7 @@ after this.
=cut
sub www_deleteUserConfirm {
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my ($u);
if ($session->form->process("uid") eq '1' || $session->form->process("uid") eq '3') {
@ -281,7 +281,7 @@ sub www_deleteUserConfirm {
#-------------------------------------------------------------------
sub www_editUser {
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(11));
my $error = shift;
my $i18n = WebGUI::International->new($session, "WebGUI");
@ -389,7 +389,7 @@ sub www_editUser {
#-------------------------------------------------------------------
sub www_editUserSave {
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
my $isAdmin = $session->user->isInGroup(3);
my $isSecondary;
unless ($isAdmin) {
@ -429,7 +429,7 @@ sub www_editUserSave {
#-------------------------------------------------------------------
sub www_editUserKarma {
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my ($output, $f, $a, %user, %data, $method, $values, $category, $label, $default, $previousCategory);
my $i18n = WebGUI::International->new($session);
@ -459,7 +459,7 @@ sub www_editUserKarma {
#-------------------------------------------------------------------
sub www_editUserKarmaSave {
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
return $session->privilege->adminOnly() unless ($session->user->isInGroup(3));
my ($u);
$u = WebGUI::User->new($session,$session->form->process("uid"));
@ -469,7 +469,7 @@ sub www_editUserKarmaSave {
#-------------------------------------------------------------------
sub www_listUsers {
my $session = shift; use WebGUI; WebGUI::dumpSession($session);
my $session = shift;
unless ($session->user->isInGroup(3)) {
if ($session->user->isInGroup(11)) {
$session->form->process("uid") = "new";