[freeside-commits] freeside/FS/FS cdr.pm,1.66.2.4,1.66.2.5

[Mark Wells]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv20341/FS/FS

Modified Files:
      Tag: FREESIDE_2_1_BRANCH
	cdr.pm 
Log Message:
new call details format, #12585

Index: cdr.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cdr.pm,v
retrieving revision 1.66.2.4
retrieving revision 1.66.2.5
diff -u -w -d -r1.66.2.4 -r1.66.2.5
--- cdr.pm	10 Apr 2011 17:07:27 -0000	1.66.2.4
+++ cdr.pm	27 Apr 2011 23:24:08 -0000	1.66.2.5
@@ -541,6 +541,10 @@
     '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 @@
       '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 {