[Rt-commit] r18142 - in rt/3.999/branches/merge_to_3.8.2: share/html/Admin/Elements

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Tue Feb  3 05:16:39 2009
New Revision: 18142

Modified:
   rt/3.999/branches/merge_to_3.8.2/   (props changed)
   rt/3.999/branches/merge_to_3.8.2/share/html/Admin/Elements/SelectRights

Log:
 r19465 at sunnavys-mb:  sunnavy | 2009-02-03 16:45:04 +0800
 case fixes


Modified: rt/3.999/branches/merge_to_3.8.2/share/html/Admin/Elements/SelectRights
==============================================================================
--- rt/3.999/branches/merge_to_3.8.2/share/html/Admin/Elements/SelectRights	(original)
+++ rt/3.999/branches/merge_to_3.8.2/share/html/Admin/Elements/SelectRights	Tue Feb  3 05:16:39 2009
@@ -71,7 +71,7 @@
 <td valign="top">
 <h3><&|/l&>New rights</&></h3> 
 <select size="5" multiple="multiple" name="grant_right-<%$ACLDesc%>">
-% foreach $right (sort keys %Rights) {
+% foreach my $right (sort keys %Rights) {
 % next if $current_rights{$right};
       <option value="<%$right%>"  
 	><% _($right) %></option>
@@ -97,13 +97,13 @@
     }
 
 
-    my $ACLObj = RT::Model::ACECollection->new();
+    my $acl_obj = RT::Model::ACECollection->new();
     my $ACE = RT::Model::ACE->new();
 
 
-    $ACLObj->limit_to_object( $object);
-    $ACLObj->limit_to_principal( id => $principal_id);
-    $ACLObj->order_by(column=>'right_name'); 
+    $acl_obj->limit_to_object( $object);
+    $acl_obj->limit_to_principal( id => $principal_id);
+    $acl_obj->order_by(column=>'right_name'); 
 
     if (ref($object) && UNIVERSAL::can($object, 'available_rights')) { 
         %Rights = %{$object->available_rights};