X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcdr%2Fearthlink.pm;h=cfd1cb6e25a5259e5ffe763a32e2c00adf1c8c3f;hb=e7809349b0af99c9cb36becc2cbb2906b6076656;hp=0421ef9359e8179ec9ef9b856ea0b5a587d10395;hpb=8dd41f364aaba88969dfd0908feb22709025e7f6;p=freeside.git diff --git a/FS/FS/cdr/earthlink.pm b/FS/FS/cdr/earthlink.pm index 0421ef935..cfd1cb6e2 100644 --- a/FS/FS/cdr/earthlink.pm +++ b/FS/FS/cdr/earthlink.pm @@ -17,13 +17,14 @@ use Date::Parse; 'accountcode', #Account number skip(2), #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 +36,8 @@ use Date::Parse; }, #TERM NUMBER skip(2), #TERM CITY / TERM STATE _cdr_min_parser_maker, #MINUTES + skip(1), #AMOUNT + disposition, #Call Type ], );