X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcdr%2Famcom.pm;h=4fb94ee7fdaa9f02de49acdcd0e13c0ecca8fe0c;hb=57bb423fe457ba4e13726877f53bcdf944f828f8;hp=697a6827f33bced2432364aec76bcc41c2b32cd3;hpb=a87e91ee19d14a6fc3da62f4b44a9628d32bb6a3;p=freeside.git

diff --git a/FS/FS/cdr/amcom.pm b/FS/FS/cdr/amcom.pm
index 697a6827f..4fb94ee7f 100644
--- a/FS/FS/cdr/amcom.pm
+++ b/FS/FS/cdr/amcom.pm
@@ -2,9 +2,9 @@ package FS::cdr::amcom;
 
 use strict;
 use base qw( FS::cdr );
-use vars qw( %info %cdrtypes);
+use vars qw( %info );
 use DateTime;
-use FS::Record qw( qsearch );
+use FS::Record qw( qsearchs );
 use FS::cdr_type;
 
 my ($tmp_mday, $tmp_mon, $tmp_year);
@@ -16,12 +16,6 @@ my ($tmp_mday, $tmp_mon, $tmp_year);
   'type'          => 'csv',
   'sep_char'      => ',',
   'disabled'      => 0,
-  'header_buffer' => sub {
-
-	%cdrtypes = ( map { $_->cdrtypename => $_->cdrtypenum }
-                             qsearch('cdr_type', {})
-            );
-    },
 
   #listref of what to do with each field from the CDR, in order
   'import_fields' => [
@@ -43,7 +37,9 @@ my ($tmp_mday, $tmp_mon, $tmp_year);
     sub {	   # 5. Call Category (LOCAL, NATIONAL, FREECALL, MOBILE)
       my ($cdr, $data) = @_;
       $data ||= 'none';
-      $cdr->cdrtypenum($cdrtypes{$data} || '');
+
+      my $cdr_type = qsearchs('cdr_type', { 'cdrtypename' => $data } );
+      $cdr->set('cdrtypenum', $cdr_type->cdrtypenum) if $cdr_type;      
       $cdr->set('dcontext', $data);  
     },
     sub {         # 6. Start Date (DDMMYYYY