diff options
| -rw-r--r-- | FS/FS/Cron/breakage.pm | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/FS/FS/Cron/breakage.pm b/FS/FS/Cron/breakage.pm index 69758f9c5..6dd904d6a 100644 --- a/FS/FS/Cron/breakage.pm +++ b/FS/FS/Cron/breakage.pm @@ -30,19 +30,19 @@ sub reconcile_breakage { if $opt{'v'}; #find customers w/negative balance older than $days (and no activity since) - # no invoices / payments (/credits/refunds?) newer than $since - # (except antother breakage invoice???) - - my $extra_sql = ' AND 0 > '. FS::cust_main->balance_sql; - $extra_sql .= " AND ". join(' AND ', - map {" - NOT EXISTS ( SELECT 1 FROM $_ - WHERE $_.custnum = cust_main.custnum - AND _date >= $since - ) - ";} - qw( cust_bill cust_pay ) # cust_credit cust_refund ); - ); + # and no activity (invoices/payments/credits/refunds) newer than $since + # (XXX except antother breakage invoice???) + + my $extra_sql = + ' AND 0 > '. FS::cust_main->balance_sql. + ' AND '. join(' AND ', map { + " NOT EXISTS ( + SELECT 1 FROM $_ + WHERE $_.custnum = cust_main.custnum + AND _date >= $since + ) " + } qw( cust_bill cust_pay cust_credit cust_refund ) + ); my @customers = qsearch({ 'table' => 'cust_main', |