X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=rt%2Fshare%2Fhtml%2FAdmin%2FGroups%2FModify.html;h=fc0d89518771e19224e99b903c562ba6f65d61c4;hp=4491a71c82b43f2bb0e74235a9853bcef76fcd36;hb=187086c479a09629b7d180eec513fb7657f4e291;hpb=a60615bf7bde77aa2b9faf3fc268c149eecdb5ab diff --git a/rt/share/html/Admin/Groups/Modify.html b/rt/share/html/Admin/Groups/Modify.html index 4491a71c8..fc0d89518 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-2018 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); }