my $buffer = $self->{buffer};
foreach my $svcnum (keys %$svcnums) {
+ my $subtotal = $svcnums->{$svcnum};
+ next if $subtotal->{amount} < 0.01;
+
my $cust_svc = qsearchs('cust_svc', { svcnum => $svcnum })
or die "svcnum #$svcnum not found";
my $phonenum = $cust_svc->svc_x->label;
warn "processing $phonenum\n" if $DEBUG;
- my $subtotal = $svcnums->{$svcnum};
-
$self->csv->combine(
$phonenum,
$subtotal->{count},
my $buffer = $self->{buffer};
foreach my $svcnum (keys %$svcnums) {
+ my $subtotal = $svcnums->{$svcnum};
+ next if $subtotal->{amount} < 0.01;
+
my $cust_svc = qsearchs('cust_svc', { svcnum => $svcnum })
or die "svcnum #$svcnum not found";
my $phonenum = $cust_svc->svc_x->label;
warn "processing $phonenum\n" if $DEBUG;
- my $subtotal = $svcnums->{$svcnum};
-
$self->csv->combine(
$phonenum,
$subtotal->{count},
my $total_duration = sum( map { $_->{'duration'} } @subtotals );
$prefix =~ s/(...)(...)/$1 - $2/;
+ next if $total_amount < 0.01;
+
$self->csv->combine(
$prefix,
map({
- ($_->{count} || ''),
- ($_->{duration} ? int($_->{duration}/60) . ' min' : '')
+ $_->{count},
+ (int($_->{duration}/60) . ' min'),
} @subtotals ),
$self->money_char . sprintf('%.02f',$total_amount),
);