diff options
| -rw-r--r-- | FS/FS/part_event/Condition/invoice_has_not_been_sent.pm | 12 |
1 files changed, 8 insertions, 4 deletions
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 882762dfe..f80508a9a 100644 --- a/FS/FS/part_event/Condition/invoice_has_not_been_sent.pm +++ b/FS/FS/part_event/Condition/invoice_has_not_been_sent.pm @@ -21,15 +21,19 @@ sub eventtable_hashref { 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 $event = qsearchs( { 'table' => 'cust_event', 'addl_from' => 'LEFT JOIN part_event USING ( eventpart )', 'hashref' => { - 'tablenum' => $cust_bill->{Hash}->{invnum}, - 'eventtable' => 'cust_bill', - 'status' => 'done', - }, + 'tablenum' => $cust_bill->{Hash}->{invnum}, + 'eventtable' => 'cust_bill', + 'status' => 'done', + }, 'order_by' => " LIMIT 1", + 'extra_sql' => $extra_sql, } ); return 0 if $event; |