From: ivan <ivan>
Date: Wed, 11 Mar 2009 09:41:51 +0000 (+0000)
Subject: add cdr display with accountcode included, RT#4405
X-Git-Tag: root_of_svc_elec_features~1391
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=d3c80e75b62421ea742cbe4547305227f8c10bea

add cdr display with accountcode included, RT#4405
---

diff --git a/FS/FS/cdr.pm b/FS/FS/cdr.pm
index 67c5c1c2a..f0082279e 100644
--- a/FS/FS/cdr.pm
+++ b/FS/FS/cdr.pm
@@ -464,6 +464,10 @@ my %export_names = (
     'name'           => 'Default with source',
     'invoice_header' => 'Caller,Date,Time,Number,Destination,Duration,Price',
   },
+  'accountcode_default' => {
+    'name'           => 'Default plus accountcode',
+    'invoice_header' => 'Caller,Date,Time,Number,Destination,Duration,Price',
+  },
 );
 
 my %export_formats = (
@@ -528,6 +532,11 @@ my %export_formats = (
   ],
 );
 $export_formats{'source_default'} = [ 'src', @{ $export_formats{'default'} }, ];
+$export_formats{'accountcode_default'} =
+  [ @{ $export_formats{'default'} }[0,1],
+    'accountcode',
+    @{ $export_formats{'default'} }[2..5],
+  ];
 
 sub downstream_csv {
   my( $self, %opt ) = @_;