diff options
Diffstat (limited to 'FS/FS/detail_format/accountcode_default.pm')
-rw-r--r-- | FS/FS/detail_format/accountcode_default.pm | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/FS/FS/detail_format/accountcode_default.pm b/FS/FS/detail_format/accountcode_default.pm new file mode 100644 index 0000000..031cc4b --- /dev/null +++ b/FS/FS/detail_format/accountcode_default.pm @@ -0,0 +1,25 @@ +package FS::detail_format::accountcode_default; + +use strict; +use parent qw(FS::detail_format); +use Date::Format qw(time2str); + +sub name { 'Default with accountcode' } + +sub header_detail { 'Date,Time,Account,Number,Destination,Duration,Price' } + +sub columns { + my $self = shift; + my $cdr = shift; + ( + time2str($self->date_format, $cdr->startdate), + time2str('%r', $cdr->startdate), + $cdr->accountcode, + ($cdr->rated_pretty_dst || $cdr->dst), + $cdr->rated_regionname, + $self->duration($cdr), + $self->price($cdr), + ) +} + +1; |