Putting 4.2.0 on top of 4.0.17

[usit-rt.git] / lib / RT / Shredder / Group.pm

diff --git a/lib/RT/Shredder/Group.pm b/lib/RT/Shredder/Group.pm
index bbf84ab8813eee32dd3fb5243eefe4dd545849a2..24c978a1607db58362acafa2b52987b639e82425 100644 (file)
--- a/lib/RT/Shredder/Group.pm
+++ b/lib/RT/Shredder/Group.pm
@@ -128,51 +128,6 @@ sub __DependsOn
     return $self->SUPER::__DependsOn( %args );
 }
 
-sub __Relates
-{
-    my $self = shift;
-    my %args = (
-            Shredder => undef,
-            Dependencies => undef,
-            @_,
-           );
-    my $deps = $args{'Dependencies'};
-    my $list = [];
-
-# Equivalence group id inconsistent without User
-    if( $self->Domain eq 'ACLEquivalence' ) {
-        my $obj = RT::User->new($self->CurrentUser);
-        $obj->Load( $self->Instance );
-        if( $obj->id ) {
-            push( @$list, $obj );
-        } else {
-            my $rec = $args{'Shredder'}->GetRecord( Object => $self );
-            $self = $rec->{'Object'};
-            $rec->{'State'} |= INVALID;
-            $rec->{'Description'} = "ACLEguvivalence group have no related User #". $self->Instance ." object.";
-        }
-    }
-
-# Principal
-    my $obj = $self->PrincipalObj;
-    if( $obj && $obj->id ) {
-        push( @$list, $obj );
-    } else {
-        my $rec = $args{'Shredder'}->GetRecord( Object => $self );
-        $self = $rec->{'Object'};
-        $rec->{'State'} |= INVALID;
-        $rec->{'Description'} = "Have no related Principal #". $self->id ." object.";
-    }
-
-    $deps->_PushDependencies(
-            BaseObject => $self,
-            Flags => RELATES,
-            TargetObjects => $list,
-            Shredder => $args{'Shredder'}
-        );
-    return $self->SUPER::__Relates( %args );
-}
-
 sub BeforeWipeout
 {
     my $self = shift;