diff options
| author | ivan <ivan> | 2009-01-13 13:00:27 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2009-01-13 13:00:27 +0000 |
| commit | 93b8b5c341bbaf46945e2542c964e7d8198f54e1 (patch) | |
| tree | 040f99cac50434dcdf4535c0a5ebd331775cac42 /FS | |
| parent | a53767ec261d61293b5c0a1519bfbdfc1582ba79 (diff) | |
fix internal_diddb delete & return number to availability, RT#4603
Diffstat (limited to 'FS')
| -rw-r--r-- | FS/FS/part_export/internal_diddb.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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); |