[Rt-commit] rt branch, 4.0/apply-scrips-to-multiple-queues, updated. rt-4.0.4-234-g60369e9

[Thomas Sibley]

The branch, 4.0/apply-scrips-to-multiple-queues has been updated
       via  60369e97c58f7b8da27535a2640be87a3a9bce17 (commit)
      from  48c67ab232180e1c3a1969bcfa7da2486dfa01c4 (commit)

Summary of changes:
 lib/RT/Shredder/Scrip.pm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

- Log -----------------------------------------------------------------
commit 60369e97c58f7b8da27535a2640be87a3a9bce17
Author: Thomas Sibley <trs at bestpractical.com>
Date:   Fri Nov 2 15:24:54 2012 -0700

    Shred ObjectScrip records when shredding a Scrip
    
    Shredder tests now pass.

diff --git a/lib/RT/Shredder/Scrip.pm b/lib/RT/Shredder/Scrip.pm
index 9d4a8f4..e800349 100644
--- a/lib/RT/Shredder/Scrip.pm
+++ b/lib/RT/Shredder/Scrip.pm
@@ -68,8 +68,16 @@ sub __DependsOn
     my $deps = $args{'Dependencies'};
     my $list = [];
 
-# No dependencies that should be deleted with record
-# Scrip actions and conditions should be exported in feature with it.
+    my $objs = RT::ObjectScrips->new( $self->CurrentUser );
+    $objs->LimitToScrip( $self->Id );
+    push @$list, $objs;
+
+    $deps->_PushDependencies(
+        BaseObject    => $self,
+        Flags         => DEPENDS_ON,
+        TargetObjects => $list,
+        Shredder      => $args{'Shredder'}
+    );
 
     return $self->SUPER::__DependsOn( %args );
 }

-----------------------------------------------------------------------