X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Fshare%2Fhtml%2FAdmin%2FGroups%2FModify.html;h=d9c4966841943f4fd5342d416e16471eb2ad1095;hb=de9d037528895f7151a9aead6724ce2df95f9586;hp=b3bc13faa5d6b23766664717dc75fbdb194760de;hpb=3d0a1bb06b895c5be6e3f0517d355442a6b1e125;p=freeside.git diff --git a/rt/share/html/Admin/Groups/Modify.html b/rt/share/html/Admin/Groups/Modify.html index b3bc13faa..d9c496684 100755 --- a/rt/share/html/Admin/Groups/Modify.html +++ b/rt/share/html/Admin/Groups/Modify.html @@ -2,7 +2,7 @@ %# %# COPYRIGHT: %# -%# This software is Copyright (c) 1996-2013 Best Practical Solutions, LLC +%# This software is Copyright (c) 1996-2017 Best Practical Solutions, LLC %# %# %# (Except where explicitly superseded by other copyright notices) @@ -72,18 +72,17 @@ % my $CFs = $Group->CustomFields; % while (my $CF = $CFs->Next) { -<% loc($CF->Name) %>: +<% $CF->Name %>: <& /Elements/EditCustomField, CustomField => $CF, - Object => $Group, - ($Create ? (NamePrefix => 'Object-RT::Group--CustomField-') - : () )&> + Object => $Group, &> % } - /> <&|/l&>Enabled (Unchecking this box disables this group)
+ /> +
% $m->callback( %ARGS, GroupObj => $Group, results => \@results ); @@ -104,7 +103,7 @@ if ($Create) { $title = loc("Create a new group"); } else { if ($id eq 'new' ) { - my ($create_id, $create_msg) = $Group->CreateUserDefinedGroup(Name => $Name ); + my ($create_id, $create_msg) = $Group->CreateUserDefinedGroup(Name => $Name ); if ($create_id) { $id = $Group->Id; push @results, $create_msg; @@ -112,32 +111,32 @@ if ($Create) { push @results, loc("Group could not be created: [_1]", $create_msg); } } else { - $Group->Load($id) || Abort('Could not load group'); + $Group->Load($id) || Abort('Could not load group'); } if ($Group->Id) { - $title = loc("Modify the group [_1]", $Group->Name); + $title = loc("Modify the group [_1]", $Group->Name); } # If the create failed else { - $title = loc("Create a new group"); - $Create = 1; + $title = loc("Create a new group"); + $Create = 1; } } if ($Group->Id) { my @fields = qw(Description Name ); my @fieldresults = UpdateRecordObject ( AttributesRef => \@fields, - Object => $Group, - ARGSRef => \%ARGS ); + Object => $Group, + ARGSRef => \%ARGS ); push (@results,@fieldresults); push @results, ProcessObjectCustomFieldUpdates( ARGSRef => \%ARGS, Object => $Group ); # Warn about duplicate groups my $dupcheck = RT::Groups->new(RT->SystemUser); $dupcheck->LimitToUserDefinedGroups(); - $dupcheck->Limit( FIELD => 'Name', VALUE => $Group->Name ); + $dupcheck->Limit( FIELD => 'Name', VALUE => $Group->Name, CASESENSITIVE => 0 ); if ($dupcheck->Count > 1) { push @warnings, loc("There is more than one group with the name '[_1]'. This may cause inconsistency in parts of the admin interface, and therefore it's recommended you rename the conflicting groups.", $Group->Name); }