X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fphone_avail.pm;h=55b44eca7125c1fbb419e57981009c9e7db5e18e;hb=387c96b0d8f224f3ade27bed9348f37b432bbb8a;hp=68aeca159dfb4fc5fb70d8b32f4105b1a3a26291;hpb=16302a5c91267095f9c6eb6c2ad21238b6f1b781;p=freeside.git

diff --git a/FS/FS/phone_avail.pm b/FS/FS/phone_avail.pm
index 68aeca159..55b44eca7 100644
--- a/FS/FS/phone_avail.pm
+++ b/FS/FS/phone_avail.pm
@@ -57,6 +57,22 @@ npa
 
 nxx
 
+=item station
+
+station
+
+=item name
+
+Optional name
+
+=item svcnum
+
+svcnum
+
+=item availbatch
+
+availbatch
+
 =back
 
 =head1 METHODS
@@ -123,12 +139,37 @@ sub check {
     || $self->ut_alphan('state')
     || $self->ut_number('npa')
     || $self->ut_numbern('nxx')
+    || $self->ut_numbern('station')
+    || $self->ut_foreign_keyn('svcnum', 'cust_svc', 'svcnum' )
+    || $self->ut_textn('availbatch')
   ;
   return $error if $error;
 
   $self->SUPER::check;
 }
 
+sub process_batch_import {
+  my $job = shift;
+
+  my $numsub = sub {
+    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 );
+    $phone_avail->npa($1);
+    $phone_avail->nxx($2);
+    $phone_avail->station($3);
+  };
+
+  my $opt = { 'table'   => 'phone_avail',
+              'params'  => [ 'availbatch', 'exportnum', 'countrycode' ],
+              'formats' => { 'default' => [ 'state', $numsub ] },
+            };
+
+  FS::Record::process_batch_import( $job, $opt, @_ );
+
+}
+
 =back
 
 =head1 BUGS