X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcdr%2Fearthlink.pm;h=5042f6fa5a3df0326c6438578a679ecca015b375;hb=3ac62d97d20400c10a1812b33617bf902f595626;hp=0421ef9359e8179ec9ef9b856ea0b5a587d10395;hpb=7c8aa3f08b006c9772889d95c5dcef0a6a69bf17;p=freeside.git diff --git a/FS/FS/cdr/earthlink.pm b/FS/FS/cdr/earthlink.pm index 0421ef935..5042f6fa5 100644 --- a/FS/FS/cdr/earthlink.pm +++ b/FS/FS/cdr/earthlink.pm @@ -14,16 +14,16 @@ use Date::Parse; 'header' => 1, 'import_fields' => [ - 'accountcode', #Account number - skip(2), #SERVICE LOC / BILL NUMBER + skip(3), #Account number/ SERVICE LOC / BILL NUMBER sub { my($cdr, $date) = @_; - + $date; }, #date sub { my($cdr, $time) = @_; my $datetime = $date. " ". $time; $cdr->set('startdate', $datetime ); }, #time + skip(1), #TollFreeNumber sub { my($cdr, $src) = @_; $src =~ s/\D//g; $cdr->set('src', $src); @@ -35,6 +35,10 @@ use Date::Parse; }, #TERM NUMBER skip(2), #TERM CITY / TERM STATE _cdr_min_parser_maker, #MINUTES + skip(1), #AMOUNT + 'disposition', #Call Type + skip(1), #Seq + 'accountcode', #AcctCode ], );