summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--FS/FS/part_event/Action/cust_bill_spool_csv.pm10
1 files changed, 10 insertions, 0 deletions
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 11ecbc555..43d230033 100644
--- 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'),
);