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

fix group editing adding numbers

Browse source
This commit is contained in:
Graham Knop 2007-08-17 16:39:46 +00:00
parent 5167b279f5
commit bcaf1243b0
3 changed files with 23 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

7
docs/changelog/7.x.x.txt
View file

@ -1,7 +1,8 @@
7.4.4
- fix: bug in EMS purge
- fix: bug in poll where you can't edit it to have less answers
- fix: Changing group detail adds number to group name
http://www.webgui.org/bugs/tracker/changing-group-detail-adds-number-to-group-name
- fix: bug in EMS purge
- fix: bug in poll where you can't edit it to have less answers
7.4.3
- Data Forms set reply to to the same as the from field

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

@ -459,20 +459,24 @@ sub www_editGroup {
#-------------------------------------------------------------------
sub www_editGroupSave {
my $session = shift;
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"));
# 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;
my $session = shift;
my $gid = $session->form->process("gid");
return $session->privilege->adminOnly
unless canEditGroup($session, $gid);
my $g = WebGUI::Group->new($session, $gid);
# 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 (my $existingGroupId = WebGUI::Group->find($session, $groupName)->getId) {
last
if $existingGroupId eq $gid;
$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->name($groupName);
$g->description($session->form->process("description"));
$g->expireOffset($session->form->interval("expireOffset"));
$g->karmaThreshold($session->form->process("karmaThreshold"));
$g->ipFilter($session->form->process("ipFilter"));
$g->scratchFilter($session->form->process("scratchFilter"));

2
sbin/preload.perl
View file

@ -70,6 +70,8 @@ foreach my $package (@modules) {
next if (WebGUI::Utility::isIn($package,@excludes));
my $use = "use ".$package." ()";
eval($use);
print $@
if $@;
}
use Apache2::ServerUtil ();