From: mark <mark>
Date: Wed, 27 Apr 2011 23:24:15 +0000 (+0000)
Subject: new call details format, #12585
X-Git-Tag: freeside_2_3_0~327
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=43fe059594a5f7b21413ea6805eb41d4ed89fa6a

new call details format, #12585
---

diff --git a/FS/FS/cdr.pm b/FS/FS/cdr.pm
index 65ca50b29..3157b6b60 100644
--- a/FS/FS/cdr.pm
+++ b/FS/FS/cdr.pm
@@ -541,6 +541,10 @@ my %export_names = (
     'name'           => 'Default plus accountcode',
     'invoice_header' => 'Date,Time,Account,Number,Destination,Duration,Price',
   },
+  'description_default' => {
+    'name'           => 'Default with description field as destination',
+    'invoice_header' => 'Caller,Date,Time,Number,Destination,Duration,Price',
+  },
 );
 
 my %export_formats = ();
@@ -626,8 +630,13 @@ sub export_formats {
       'accountcode',
       @{ $export_formats{'default'} }[2..5],
     ];
+  my @default = @{ $export_formats{'default'} };
+  $export_formats{'description_default'} = 
+    [ 'src', @default[0..2], 
+      sub { my($cdr, %opt) = @_; $cdr->description },
+      @default[4,5] ];
 
-  %export_formats
+  return %export_formats;
 }
 
 sub downstream_csv {