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);