RT# 37817 - added a declaration to cust bill event actions that send out invoices

[freeside.git] / FS / FS / part_event / Action / cust_bill_send_with_notice.pm

diff --git a/FS/FS/part_event/Action/cust_bill_send_with_notice.pm b/FS/FS/part_event/Action/cust_bill_send_with_notice.pm
index 10e86e3..d015940 100644 (file)
--- a/FS/FS/part_event/Action/cust_bill_send_with_notice.pm
+++ b/FS/FS/part_event/Action/cust_bill_send_with_notice.pm
@@ -7,8 +7,19 @@ use MIME::Entity;
 
 sub description { 'Email a notice to the customer with invoice attached'; }
 
+## declaring that this action will send out an invoice
+sub will_send_invoice { 1; }
+
 sub eventtable_hashref {
-  { 'cust_bill' => 1 };
+    {
+      'cust_main'      => 1,
+      'cust_bill'      => 1,
+      'cust_pkg'       => 1,
+      'cust_pay'       => 1,
+      'cust_pay_batch' => 1,
+      'cust_statement' => 1,
+      'svc_acct'       => 1,
+    };
 }
 
 sub option_fields {
@@ -30,10 +41,10 @@ sub option_fields {
 sub default_weight { 56; }
 
 sub do_action {
-  my( $self, $cust_bill, %opt ) = @_;
+  my( $self, $cust_bill, $cust_event ) = @_;
 
   $cust_bill->set('mode' => $self->option('modenum'));
-  my %args = ( 'time' => $opt{'time'} );
+  my %args = ( 'time' => $cust_event->_date );
   my $mimepart = MIME::Entity->build( $cust_bill->mimebuild_pdf(\%args) );
   my $msgnum = $self->option('msgnum');
   my $msg_template = FS::msg_template->by_key($msgnum)