cust_bill_spool_csv.pm: remove invoice destination stuff, RT12557
[freeside.git] / FS / FS / part_event / Action / cust_bill_spool_csv.pm
index 4300b61..11ecbc5 100644 (file)
@@ -3,13 +3,9 @@ package FS::part_event::Action::cust_bill_spool_csv;
 use strict;
 use base qw( FS::part_event::Action );
 
-sub description {
-  'Spool CSV invoice data';
-}
+sub description { 'Spool CSV invoice data'; }
 
-sub deprecated {
-  1;
-}
+sub deprecated { 1; }
 
 sub eventtable_hashref {
   { 'cust_bill' => 1 };
@@ -24,28 +20,18 @@ sub option_fields {
                                                 'billco'  => 'Billco',
                                               },
                            },
-    'spooldest'         => { label   => 'For destination',
-                             type    => 'select',
-                             options => [ '', qw( POST EMAIL FAX ) ],
-                             option_labels => { ''      => '(all)',
-                                                'POST'  => 'Postal Mail',
-                                                'EMAIL' => 'Email',
-                                                'FAX'   => 'Fax',
-                                              },
-                           },
     'spoolbalanceover'  => { label =>
                                'If balance (this invoice and previous) over',
                              type  => 'money',
                            },
     'spoolagent_spools' => { label => 'Individual per-agent spools',
                              type  => 'checkbox',
+                             value => '1',
                            },
   );
 }
 
-sub default_weight {
-  50;
-}
+sub default_weight { 50; }
 
 sub do_action {
   my( $self, $cust_bill ) = @_;
@@ -55,7 +41,6 @@ sub do_action {
 
   $cust_bill->spool_csv(
     'format'       => $self->option('spoolformat'),
-    'dest'         => $self->option('spooldest'),
     'balanceover'  => $self->option('spoolbalanceover'),
     'agent_spools' => $self->option('spoolagent_spools'),
   );