From: Ivan Kohler <ivan@freeside.biz>
Date: Mon, 9 Dec 2013 20:24:58 +0000 (-0800)
Subject:  fix 4.x upgrades of address-less customers, RT#24968
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=49a0b5d01cfa15be787539edfff5ba4875ca3c3e

 fix 4.x upgrades of address-less customers, RT#24968
---

diff --git a/FS/FS/cust_main/Location.pm b/FS/FS/cust_main/Location.pm
index 4bcffab41..4f382af43 100644
--- a/FS/FS/cust_main/Location.pm
+++ b/FS/FS/cust_main/Location.pm
@@ -158,7 +158,11 @@ sub _upgrade_data {
     }
   }
 
-  foreach my $cust_main (qsearch('cust_main', { bill_locationnum => '' })) {
+  foreach my $cust_main (qsearch('cust_main', {
+                           bill_locationnum => '',
+                           address1         => { op=>'!=', value=>'' },
+                        }))
+  {
     # Step 1: extract billing and service addresses into cust_location
     my $custnum = $cust_main->custnum;
     my $bill_location = FS::cust_location->new(