1 package FS::part_event::Action::cust_bill_send_if_newest;
4 use base qw( FS::part_event::Action );
7 'Send invoice (email/print/fax) with alternate template, if it is still the newest invoice (useful for late notices - set to 31 days or later)';
10 # XXX is this handled better by something against customers??
15 ## declaring that this action will send out an invoice
16 sub will_send_invoice { 1; }
18 sub eventtable_hashref {
24 'modenum' => { label => 'Invoice mode',
25 type => 'select-invoice_mode',
27 'if_newest_templatename' => { label => 'Template',
28 type => 'select-invoice_template',
33 sub default_weight { 50; }
36 my( $self, $cust_bill ) = @_;
38 my $invnum = $cust_bill->invnum;
39 my $custnum = $cust_bill->custnum;
42 qsearch('cust_bill', {
43 'custnum' => $custnum,
44 'invnum' => { op=>'>', value=>$invnum },
47 $cust_bill->set('mode' => $self->option('modenum'));
48 $cust_bill->send( 'template' => $self->option('templatename') );