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

prevent groups with duplicate names from being created

Browse source
This commit is contained in:
Graham Knop 2007-08-02 22:36:14 +00:00
parent c226b94ce2
commit c073c82436
2 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -463,7 +463,15 @@ sub www_editGroupSave {
return $session->privilege->adminOnly() unless (canEditGroup($session,$session->form->process("gid")));
my $g = WebGUI::Group->new($session,$session->form->process("gid"));
$g->description($session->form->process("description"));
$g->name($session->form->process("groupName"));
# We don't want them to use an existing name. If needed, we'll ad a number to the name to keep it unique.
my $groupName = $session->form->process("groupName");
while (WebGUI::Group->find($session, $groupName)->getId) {
$groupName =~ s/\A(.*?)(\d*)\z/
my $newNum = ($2 || 0) + 1;
substr($1, 0, 100 - length($newNum)) . $newNum; #prevent name from growing over 100 chars
/emsx;
}
$g->name($groupName);
$g->expireOffset($session->form->interval("expireOffset"));
$g->karmaThreshold($session->form->process("karmaThreshold"));
$g->ipFilter($session->form->process("ipFilter"));