"use base" for compatibility

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

diff --git a/FS/FS/detail_format/sum_duration_prefix.pm b/FS/FS/detail_format/sum_duration_prefix.pm
index 275aa57..afdc196 100644 (file)
--- a/FS/FS/detail_format/sum_duration_prefix.pm
+++ b/FS/FS/detail_format/sum_duration_prefix.pm
@@ -2,7 +2,7 @@ package FS::detail_format::sum_duration_prefix;
 
 use strict;
 use vars qw( $DEBUG );
-use parent qw(FS::detail_format);
+use base qw(FS::detail_format);
 use List::Util qw(sum);
 
 $DEBUG = 0;
@@ -62,11 +62,13 @@ sub finish {
     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),
     );