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 sub eventtable_hashref {
21 'modenum' => { label => 'Invoice mode',
22 type => 'select-invoice_mode',
24 'if_newest_templatename' => { label => 'Template',
25 type => 'select-invoice_template',
30 sub default_weight { 50; }
33 my( $self, $cust_bill ) = @_;
35 my $invnum = $cust_bill->invnum;
36 my $custnum = $cust_bill->custnum;
39 qsearch('cust_bill', {
40 'custnum' => $custnum,
41 'invnum' => { op=>'>', value=>$invnum },
44 $cust_bill->set('mode' => $self->option('modenum'));
45 $cust_bill->send( 'template' => $self->option('templatename') );