X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpart_event%2FAction%2Fcust_bill_spool_csv.pm;h=0d84e77c47d5f5aefd6d706452a99670472faded;hb=88dbd0c961480b879faa6e8a0556202f41e8202f;hp=14349a9dd395914ef1e6dd0b63aad4cb14969155;hpb=40d974d3ce9ac2ae6cbdd415ae00bfbf7b73beef;p=freeside.git 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 14349a9dd..0d84e77c4 100644 --- a/FS/FS/part_event/Action/cust_bill_spool_csv.pm +++ b/FS/FS/part_event/Action/cust_bill_spool_csv.pm @@ -26,29 +26,37 @@ sub option_fields { type => 'checkbox', value => '1', }, - 'ftp_targetnum' => { label => 'Upload spool to FTP target', + 'upload_targetnum' => { label => 'Upload spool to target', type => 'select-table', - table => 'ftp_target', + table => 'upload_target', name_col => 'label', empty_label => '(do not upload)', order_by => 'targetnum', }, + 'skip_nopost' => { label => 'Skip customers without postal billing enabled', + type => 'checkbox', + value => 'Y', + }, ); } sub default_weight { 50; } sub do_action { - my( $self, $cust_bill ) = @_; + my( $self, $cust_bill, $cust_event ) = @_; #my $cust_main = $self->cust_main($cust_bill); my $cust_main = $cust_bill->cust_main; + return if $self->option('skip_nopost') + && ! grep { $_ eq 'POST' } $cust_main->invoicing_list; + $cust_bill->spool_csv( + 'time' => $cust_event->_date, 'format' => $self->option('spoolformat'), 'balanceover' => $self->option('spoolbalanceover'), 'agent_spools' => $self->option('spoolagent_spools'), - 'ftp_targetnum'=> $self->option('ftp_targetnum'), + 'upload_targetnum'=> $self->option('upload_targetnum'), ); }