From 1cf39475a4ba90ed0aa49ed983542077e4609c22 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 31 Dec 2008 03:28:57 +0000
Subject: bell west CDR format, RT#4403

---
 FS/FS/phone_avail.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'FS/FS/phone_avail.pm')

diff --git a/FS/FS/phone_avail.pm b/FS/FS/phone_avail.pm
index 136fc24..e436bca 100644
--- a/FS/FS/phone_avail.pm
+++ b/FS/FS/phone_avail.pm
@@ -148,10 +148,13 @@ sub process_batch_import {
   my $job = shift;
 
   my $numsub = sub {
-    my( $hash, $value ) = @_;
+    my( $phone_avail, $value ) = @_;
     $value =~ s/\D//g;
     $value =~ /^(\d{3})(\d{3})(\d+)$/ or die "unparsable number $value\n";
-    ( $hash->{npa}, $hash->{nxx}, $hash->{station} ) = ( $1, $2, $3 );
+    #( $hash->{npa}, $hash->{nxx}, $hash->{station} ) = ( $1, $2, $3 );
+    $phone_avail->npa($1);
+    $phone_avail->nxx($2);
+    $phone_avail->station($3);
   };
 
   my $opt = { 'table'   => 'phone_avail',
-- 
cgit v1.1