From 6280f242bfdac9db4715c1b332128ed759bcf428 Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Thu, 24 Apr 2008 17:21:44 +0000 Subject: [PATCH] Add POD to www_deleteGroup, and untab it. --- lib/WebGUI/Operation/Group.pm | 21 +++++++++++++++------ 1 file changed, 15 insertions(+), 6 deletions(-) diff --git a/lib/WebGUI/Operation/Group.pm b/lib/WebGUI/Operation/Group.pm index 43478f063..6573922db 100644 --- a/lib/WebGUI/Operation/Group.pm +++ b/lib/WebGUI/Operation/Group.pm @@ -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); } #-------------------------------------------------------------------