[freeside-commits] freeside/FS/FS/part_export internal_diddb.pm, 1.4, 1.5

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS/part_export
In directory wavetail.420.am:/tmp/cvs-serv663

Modified Files:
	internal_diddb.pm 
Log Message:
fix internal_diddb delete & return number to availability, RT#4603

Index: internal_diddb.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/part_export/internal_diddb.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- internal_diddb.pm	3 Dec 2008 17:25:44 -0000	1.4
+++ internal_diddb.pm	13 Jan 2009 13:00:27 -0000	1.5
@@ -100,7 +100,7 @@
 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);