diff options
| -rw-r--r-- | FS/FS/cdr.pm | 9 | 
1 files changed, 9 insertions, 0 deletions
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 ) = @_;  | 
