Ticket #31495 Import correct accountcode

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

diff --git a/FS/FS/cdr/earthlink.pm b/FS/FS/cdr/earthlink.pm
index da0d545..5042f6f 100644 (file)
--- a/FS/FS/cdr/earthlink.pm
+++ b/FS/FS/cdr/earthlink.pm
@@ -14,10 +14,9 @@ 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) = @_;
 
@@ -36,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
   ],
 );