X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcdr%2Fearthlink.pm;h=213a025c2040a7a95e0c85d0a10ad12a2850ad2a;hb=57f87fa7abbd245829a778007a711948c0caea2d;hp=0421ef9359e8179ec9ef9b856ea0b5a587d10395;hpb=7c8aa3f08b006c9772889d95c5dcef0a6a69bf17;p=freeside.git diff --git a/FS/FS/cdr/earthlink.pm b/FS/FS/cdr/earthlink.pm index 0421ef935..213a025c2 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 ], );