From bd4151f99f8a2249977e65947cc8762ec50166e2 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 29 Oct 2008 07:50:09 +0000
Subject: [PATCH] fix to internal_diddb provisioning

---
 FS/FS/part_export/internal_diddb.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/FS/FS/part_export/internal_diddb.pm b/FS/FS/part_export/internal_diddb.pm
index 5e1487367..d7b5587b1 100644
--- a/FS/FS/part_export/internal_diddb.pm
+++ b/FS/FS/part_export/internal_diddb.pm
@@ -70,7 +70,7 @@ sub get_dids {
 sub _export_insert   { #link phone_avail to svcnum
   my( $self, $svc_phone ) = (shift, shift);
 
-  $svc_phone =~ /^(\d{3})(\d{3})(\d+)$/
+  $svc_phone->phonenum =~ /^(\d{3})(\d{3})(\d+)$/
     or return "unparsable phone number: ". $svc_phone->phonenum;
   my( $npa, $nxx, $station ) = ($1, $2, $3);
 
-- 
2.11.0