1 package FS::cdr::ispphone;
4 use vars qw( @ISA %info $tmp_mon $tmp_mday $tmp_year );
6 use FS::cdr qw ( _cdr_date_parser_maker );
17 'accountcode', # Accountcode
21 'upstream_dst_regionname', # Description
22 _cdr_date_parser_maker('startdate'), #DateTime
24 sub { my ($cdr, $duration) = @_;
25 my ($min,$sec) = split(/:/, $duration);
26 my $billsec = $sec + $min * 60;
27 $cdr->set('billsec', $billsec);
29 }, #Charged time, min:sec
31 'upstream_price', # Amount ( upstream price )
36 sub skip { map {''} (1..$_[0]) }