[Rt-commit] r10013 - rt/branches/3.7-RTIR-RELENG/lib/RT

[ruz at bestpractical.com]

Author: ruz
Date: Wed Dec 19 14:26:03 2007
New Revision: 10013

Modified:
   rt/branches/3.7-RTIR-RELENG/lib/RT/Test.pm

Log:
* add add_rights function

Modified: rt/branches/3.7-RTIR-RELENG/lib/RT/Test.pm
==============================================================================
--- rt/branches/3.7-RTIR-RELENG/lib/RT/Test.pm	(original)
+++ rt/branches/3.7-RTIR-RELENG/lib/RT/Test.pm	Wed Dec 19 14:26:03 2007
@@ -330,7 +330,6 @@
 
 sub set_rights {
     my $self = shift;
-    my @list = ref $_[0]? @_: @_? { @_ }: ();
 
     require RT::ACL;
     my $acl = RT::ACL->new( $RT::SystemUser );
@@ -342,7 +341,14 @@
         }
         $ace->Delete;
     }
+    return $self->add_rights( @_ );
+}
+
+sub add_rights {
+    my $self = shift;
+    my @list = ref $_[0]? @_: @_? { @_ }: ();
 
+    require RT::ACL;
     foreach my $e (@list) {
         my $principal = delete $e->{'Principal'};
         unless ( ref $principal ) {