diff options
author | Ivan Kohler <ivan@freeside.biz> | 2014-02-05 13:51:54 -0800 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2014-02-05 13:51:54 -0800 |
commit | ad0a365cc548e0f5137b2d1578e2c9f8854e5a86 (patch) | |
tree | 69783b102b4eb80ac4e86e9e296eafdf59c86707 | |
parent | 6156461dcd934da26e53f78a4aed450259e4ae55 (diff) |
add "Basic with upstream destination name" CDR display format, RT#20129
-rw-r--r-- | FS/FS/cdr.pm | 6 | ||||
-rw-r--r-- | FS/FS/detail_format/basic_upstream_dst_regionname.pm | 22 |
2 files changed, 28 insertions, 0 deletions
diff --git a/FS/FS/cdr.pm b/FS/FS/cdr.pm index 80b31bf..0fdcbdf 100644 --- a/FS/FS/cdr.pm +++ b/FS/FS/cdr.pm @@ -1151,6 +1151,8 @@ sub calltypename { =cut +# in the future, load this dynamically from detail_format classes + my %export_names = ( 'simple' => { 'name' => 'Simple', @@ -1169,6 +1171,10 @@ my %export_names = ( 'name' => 'Basic', 'invoice_header' => "Date/Time,Called Number,Min/Sec,Price", }, + 'basic_upstream_dst_regionname' => { + 'name' => 'Basic with upstream destination name', + 'invoice_header' => "Date/Time,Called Number,Destination,Min/Sec,Price", + }, 'default' => { 'name' => 'Default', 'invoice_header' => 'Date,Time,Number,Destination,Duration,Price', diff --git a/FS/FS/detail_format/basic_upstream_dst_regionname.pm b/FS/FS/detail_format/basic_upstream_dst_regionname.pm new file mode 100644 index 0000000..258fd90 --- /dev/null +++ b/FS/FS/detail_format/basic_upstream_dst_regionname.pm @@ -0,0 +1,22 @@ +package FS::detail_format::basic_upstream_dst_regionname; + +use strict; +use base qw(FS::detail_format); + +sub name { 'Basic with upstream destination name' } + +sub header_detail { 'Date/Time,Called Number,Destination,Min/Sec,Price' } + +sub columns { + my $self = shift; + my $cdr = shift; + ( + $self->time2str_local('%d %b - %I:%M %p', $cdr->startdate), + $cdr->dst, + $cdr->upstream_dst_regionname, + $self->duration($cdr), + $self->price($cdr), + ) +} + +1; |