[rt-devel] Sorting rights in SelectRights

[Peter E. Popovich]

Dunno if anyone else gets tired of looking at the default ordering of
assigned rights in Admin/Queues/UserRights.html et. al., but I did.

Comments welcome.

# diff ./rt2/WebRT/html/Admin/Elements/SelectRights*
17,18c17,19
< % foreach $right (sort keys %RightIds) {
< <input type=checkbox value="<%$RightIds{$right}%>" name="RevokeACE">
<%$right%><br>
---
> % while (my $right = $ACLObj->Next()) {
> % if ($right->RightName) {
> <input type=checkbox value="<%$right->Id%>" name="RevokeACE">
<%$right->RightName%><br>
19a21
> %  }
24c26
<     my ($right, $ACLDesc, $AppliesTo, %Rights, %RightIds);
---
>     my ($right, $ACLDesc, $AppliesTo, %Rights);
49,54d50
<
<     while (my $right = $ACLObj->Next()) {
<       if ($right->RightName) {
<         $RightIds{$right->RightName}=$right->Id;
<       }
<     }