X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcdr.pm;h=a7d0028981a0578b94e3044e4ccf628393b893f1;hb=b4fa2aa2f73721c6f2c467c73b25e20f59cb04ea;hp=c61a7b3ee95eb23b480d8d4c6c1e2b3a059c05b1;hpb=c541cb0f1ab12a904252bd6b2658dba585860f28;p=freeside.git diff --git a/FS/FS/cdr.pm b/FS/FS/cdr.pm index c61a7b3ee..a7d002898 100644 --- a/FS/FS/cdr.pm +++ b/FS/FS/cdr.pm @@ -32,7 +32,7 @@ use IO::Socket::SSL; use Cpanel::JSON::XS qw(decode_json); @ISA = qw(FS::Record); -@EXPORT_OK = qw( _cdr_date_parser_maker _cdr_min_parser_maker ); +@EXPORT_OK = qw( _cdr_date_parser_maker _cdr_min_parser_maker _cdr_date_parse ); $DEBUG = 0; $me = '[FS::cdr]'; @@ -1659,7 +1659,12 @@ foreach my $INC ( @INC ) { tie my %import_formats, 'Tie::IxHash', map { $_ => $cdr_info{$_}->{'name'} } - sort { $cdr_info{$a}->{'weight'} <=> $cdr_info{$b}->{'weight'} } + + #this is not doing anything useful anymore + #sort { $cdr_info{$a}->{'weight'} <=> $cdr_info{$b}->{'weight'} } + #so just sort alpha + sort { lc($cdr_info{$a}->{'name'}) cmp lc($cdr_info{$b}->{'name'}) } + grep { exists($cdr_info{$_}->{'import_fields'}) } keys %cdr_info;