From 4d6e432a463f155a8043286b6784275538ccf441 Mon Sep 17 00:00:00 2001
From: Jeremy Davis <jeremyd@freeside.biz>
Date: Tue, 28 Jul 2015 07:38:14 -0400
Subject: [PATCH] Ticket #31495 Import correct accountcode

---
 FS/FS/cdr/earthlink.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/FS/FS/cdr/earthlink.pm b/FS/FS/cdr/earthlink.pm
index 213a025c2..5042f6fa5 100644
--- a/FS/FS/cdr/earthlink.pm
+++ b/FS/FS/cdr/earthlink.pm
@@ -14,8 +14,7 @@ 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 
@@ -38,6 +37,8 @@ use Date::Parse;
 	_cdr_min_parser_maker, 		#MINUTES
 	skip(1),			#AMOUNT
 	'disposition',			#Call Type
+	skip(1),			#Seq
+	'accountcode',			#AcctCode
   ],
 );
 
-- 
2.11.0