Earthlink CDR's import additional info

[freeside.git] / FS / FS / cdr / earthlink.pm

diff --git a/FS/FS/cdr/earthlink.pm b/FS/FS/cdr/earthlink.pm
index 0421ef9..cfd1cb6 100644 (file)
--- 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
   ],
 );