X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Fshare%2Fhtml%2FAdmin%2FGroups%2FModify.html;h=95879c1eb703158a6bc30cec10e51555b9aae7da;hb=44dd00a3ff974a17999e86e64488e996edc71e3c;hp=4491a71c82b43f2bb0e74235a9853bcef76fcd36;hpb=06fb1346ff8076a84f743fa07de31852942e144f;p=freeside.git diff --git a/rt/share/html/Admin/Groups/Modify.html b/rt/share/html/Admin/Groups/Modify.html index 4491a71c8..95879c1eb 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-2012 Best Practical Solutions, LLC +%# This software is Copyright (c) 1996-2019 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); }