From: ivan <ivan>
Date: Tue, 13 Jan 2009 13:00:27 +0000 (+0000)
Subject: fix internal_diddb delete & return number to availability, RT#4603
X-Git-Tag: root_of_webpay_support~133
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=93b8b5c341bbaf46945e2542c964e7d8198f54e1

fix internal_diddb delete & return number to availability, RT#4603
---

diff --git a/FS/FS/part_export/internal_diddb.pm b/FS/FS/part_export/internal_diddb.pm
index c30d858ac..a330cb0a6 100644
--- a/FS/FS/part_export/internal_diddb.pm
+++ b/FS/FS/part_export/internal_diddb.pm
@@ -100,7 +100,7 @@ sub _export_insert   { #link phone_avail to svcnum
 sub _export_delete   { #unlink phone_avail from 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);