diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2013-12-09 12:24:58 -0800 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2013-12-09 12:24:58 -0800 |
| commit | 49a0b5d01cfa15be787539edfff5ba4875ca3c3e (patch) | |
| tree | d00f3d8506c60bd0e7b4feea814f3d8d4ba7a3c8 | |
| parent | ec02246ea0218838def2b12b0b987f71662d1761 (diff) | |
fix 4.x upgrades of address-less customers, RT#24968
| -rw-r--r-- | FS/FS/cust_main/Location.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/FS/FS/cust_main/Location.pm b/FS/FS/cust_main/Location.pm index 4bcffab..4f382af 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( |