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 /FS/FS/detail_format | |
parent | 6156461dcd934da26e53f78a4aed450259e4ae55 (diff) |
add "Basic with upstream destination name" CDR display format, RT#20129
Diffstat (limited to 'FS/FS/detail_format')
-rw-r--r-- | FS/FS/detail_format/basic_upstream_dst_regionname.pm | 22 |
1 files changed, 22 insertions, 0 deletions
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; |