hide zero-charge summary lines, #15535

[freeside.git] / FS / FS / detail_format / sum_count.pm

diff --git a/FS/FS/detail_format/sum_count.pm b/FS/FS/detail_format/sum_count.pm
index 8c395e8..5597de2 100644 (file)
--- a/FS/FS/detail_format/sum_count.pm
+++ b/FS/FS/detail_format/sum_count.pm
@@ -41,13 +41,14 @@ sub finish {
   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},