From d3c80e75b62421ea742cbe4547305227f8c10bea Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 11 Mar 2009 09:41:51 +0000
Subject: [PATCH] add cdr display with accountcode included, RT#4405

---
 FS/FS/cdr.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

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 ) = @_;
-- 
2.11.0