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

Add POD to www_deleteGroup, and untab it.

Browse source
This commit is contained in:
Colin Kuskie 2008-04-24 17:21:44 +00:00
parent aa7b0b9839
commit 6280f242bf
1 changed files with 15 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lib/WebGUI/Operation/Group.pm
View file

@ -248,13 +248,22 @@ sub www_autoDeleteFromGroup {
}
#-------------------------------------------------------------------
=head2 www_deleteGroup
Delete's the group specified by id, in the form variable gid. Groups 1-17
are reserved for WebGUI internal groups and are not allowed to be deleted.
Returns you to www_listGroups when done.
=cut
sub www_deleteGroup {
my $session = shift;
return $session->privilege->adminOnly() unless (canEditGroup($session,$session->form->process("gid")));
return $session->privilege->vitalComponent() if (isIn($session->form->process("gid"), qw(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17)));
my $g = WebGUI::Group->new($session,$session->form->process("gid"));
$g->delete;
return www_listGroups($session);
my $session = shift;
return $session->privilege->adminOnly() unless (canEditGroup($session,$session->form->process("gid")));
return $session->privilege->vitalComponent() if (isIn($session->form->process("gid"), qw(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17)));
my $g = WebGUI::Group->new($session,$session->form->process("gid"));
$g->delete;
return www_listGroups($session);
}
#-------------------------------------------------------------------