RT# 37817 - Added more invoice sending actions

diff --git a/FS/FS/part_event/Condition/invoice_has_not_been_sent.pm b/FS/FS/part_event/Condition/invoice_has_not_been_sent.pm
index f80508a..4868f66 100644 (file)
--- a/FS/FS/part_event/Condition/invoice_has_not_been_sent.pm
+++ b/FS/FS/part_event/Condition/invoice_has_not_been_sent.pm
@@ -22,7 +22,14 @@ sub condition {
   my($self, $cust_bill, %opt) = @_;
 
   ## search actions for invoice send events.
-  my $extra_sql = " AND (action LIKE 'cust_bill_send%' OR action LIKE 'cust_bill_email%')";
+  my @send_actions = (
+    "action LIKE 'cust_bill_send%'",
+    "action LIKE 'cust_bill_email%'",
+    "action LIKE 'cust_bill_print%'",
+    "action LIKE 'cust_bill_fsinc_print%'",
+  );
+  my $actions = join ' OR ', @send_actions;
+  my $extra_sql = " AND ($actions)";
 
   my $event = qsearchs( {
     'table'     => 'cust_event',