This commit was manufactured by cvs2svn to create tag 'TORRUS_1_0_9'.TORRUS_1_0_9

1 files changed, 0 insertions, 40 deletions

diff --git a/FS/FS/part_event/Action/suspend_unless_pkgpart.pm b/FS/FS/part_event/Action/suspend_unless_pkgpart.pm
deleted file mode 100644
index efc7a2d..0000000
--- a/FS/FS/part_event/Action/suspend_unless_pkgpart.pm
+++ /dev/null
@@ -1,40 +0,0 @@
-package FS::part_event::Action::suspend_unless_pkgpart;
-
-use strict;
-use base qw( FS::part_event::Action );
-
-sub description { 'Suspend packages except'; }
-
-#i should be deprecated in favor of using the unless_pkgpart condition
-
-sub option_fields {
-  ( 
-    'unless_pkgpart' => { 'label'    => 'Suspend packages except:',
-                          'type'     => 'select-part_pkg',
-                          'multiple' => 1,
-                        },
-    'reasonnum' => { 'label'        => 'Reason',
-                     'type'         => 'select-reason',
-                     'reason_class' => 'S',
-                   },
-  );
-}
-
-sub default_weight { 10; }
-
-sub do_action {
-  my( $self, $cust_object ) = @_;
-
-  my $cust_main = $self->cust_main($cust_object);
-
-  my @err = $cust_main->suspend_unless_pkgpart( {
-    'pkgparts' => [ split(/\s*,\s*/, $self->option('unless_pkgpart') ) ],
-    'reason'   => $self->option('reasonnum'),
-  } );
-
-  die join(' / ', @err) if scalar(@err);
-
-  '';
-}
-
-1;