<TD><TEXTAREA NAME="acctid"></TEXTAREA></TD>
</TR>
+ <TR>
+ <TD ALIGN="right">Acct Code (one per-line):</TD>
+ <TD><TEXTAREA NAME="accountcode"></TEXTAREA></TD>
+ </TR>
+
<TR>
<TH CLASS="background" COLSPAN=2> </TH>
</TR>
unless $FS::CurrentUser::CurrentUser->access_right('List rating data');
my @fields = fields('cdr');
+push @fields, 'ratename';
+push @fields, map "cdr_termination.$_", qw( rated_price rated_seconds rated_minutes rated_granularity status svcnum );
+
my $labels = FS::cdr->table_info->{'fields'};
+$labels->{ratename} = 'Rate plan';
+$labels->{'cdr_termination.rated_price'} = 'Termination rated price';
+$labels->{'cdr_termination.rated_seconds'} = 'Termination rated seconds';
+$labels->{'cdr_termination.rated_minutes'} = 'Termination rated minutes';
+$labels->{'cdr_termination.rated_granularity'} = 'Termination rated granularity';
+$labels->{'cdr_termination.status'} = 'Termination status';
+$labels->{'cdr_termination.svcnum'} = 'Termination service';
+
+my $conf = new FS::Conf;
+my $default_phone_countrycode =
+ $conf->config('default_phone_countrycode') || '1';
#XXX config
my @show_default = qw(
});
die "Customer not found!" unless $cust_main;
- #historical?
+ #historical packages? It would help, it was still usage, it happened
foreach my $cust_pkg ( $cust_main->ncancelled_pkgs ) {
my @voip_pkgs =
my @numbers = map {
my $number = $_->phonenum;
$number = $_->countrycode. $number
- unless $_->countrycode eq '1';
+ unless $_->countrycode eq $default_phone_countrycode;
$number;
}
@svc_phone;