[Rt-commit] r10103 - in rt/branches/3.7-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Mon Dec 24 18:52:03 2007
New Revision: 10103

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/lib/RT/Test.pm

Log:
 r10014 at cubic-pc (orig r10013):  ruz | 2007-12-19 22:26:03 +0300
 * add add_rights function


Modified: rt/branches/3.7-EXPERIMENTAL/lib/RT/Test.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/lib/RT/Test.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL/lib/RT/Test.pm	Mon Dec 24 18:52: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 ) {