[Rt-commit] r6915 - rt/branches/3.7-EXPERIMENTAL-RTIR-2.2/lib/RT/Shredder

[ruz at bestpractical.com]

Author: ruz
Date: Fri Feb  2 22:27:16 2007
New Revision: 6915

Modified:
   rt/branches/3.7-EXPERIMENTAL-RTIR-2.2/lib/RT/Shredder/Template.pm

Log:
* delete scrips with templates

Modified: rt/branches/3.7-EXPERIMENTAL-RTIR-2.2/lib/RT/Shredder/Template.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-RTIR-2.2/lib/RT/Shredder/Template.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL-RTIR-2.2/lib/RT/Shredder/Template.pm	Fri Feb  2 22:27:16 2007
@@ -21,6 +21,18 @@
     my $deps = $args{'Dependencies'};
     my $list = [];
 
+# Scrips
+    my $objs = RT::Scrips->new( $self->CurrentUser );
+    $objs->Limit( FIELD => 'Template', VALUE => $self->Id );
+    push( @$list, $objs );
+
+    $deps->_PushDependencies(
+        BaseObject => $self,
+        Flags => DEPENDS_ON,
+        TargetObjects => $list,
+        Shredder => $args{'Shredder'},
+    );
+
     return $self->SUPER::__DependsOn( %args );
 }