undo last commit, RT12557

diff --git a/FS/FS/part_event/Action/cust_bill_spool_csv.pm b/FS/FS/part_event/Action/cust_bill_spool_csv.pm
index 11ecbc5..43d2300 100644 (file)
--- a/FS/FS/part_event/Action/cust_bill_spool_csv.pm
+++ b/FS/FS/part_event/Action/cust_bill_spool_csv.pm
@@ -20,6 +20,15 @@ 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',
@@ -41,6 +50,7 @@ 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'),
   );