X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FCron%2Fbreakage.pm;h=6dd904d6a4079cce4cc6453b02e5435ee9afde7a;hb=6ca784d5a43ebf49bf684d6e4bc4d44d71eaf2b1;hp=69758f9c58060e593e741c43e0053581e72ea55e;hpb=2ac70827dceb19a3844503c3c3a5e84c456eefbe;p=freeside.git

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',