From: Mark Wells <mark@freeside.biz>
Date: Tue, 20 Mar 2012 18:32:58 +0000 (-0700)
Subject: warn during upgrade if addr_block records are missing, #17040
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=a655e41afacdc0bbfbde4c8ee07e8656ed2b6b57;p=freeside.git

warn during upgrade if addr_block records are missing, #17040
---

diff --git a/FS/FS/svc_broadband.pm b/FS/FS/svc_broadband.pm
index 668a3cf64..3a936a972 100755
--- a/FS/FS/svc_broadband.pm
+++ b/FS/FS/svc_broadband.pm
@@ -639,6 +639,11 @@ sub _upgrade_data {
       routernum => ''
     })) {
     my $addr_block = $self->addr_block;
+    if ( !$addr_block ) {
+      # super paranoid mode
+      warn "WARNING: svcnum ".$self->svcnum." is assigned to addr_block ".$self->blocknum.", which does not exist; skipped.\n";
+      next;
+    }
     my $ip_addr = $self->ip_addr;
     my $routernum = $addr_block->routernum;
     if ( $routernum ) {