diff options
author | Ivan Kohler <ivan@freeside.biz> | 2015-02-22 15:02:48 -0800 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2015-02-22 15:02:48 -0800 |
commit | 7f30c88ec340acb697c4dad7582945e25d4b5d0f (patch) | |
tree | 7b4b666a53a1706b9c337c328f1e8c7e760c493e /FS/FS | |
parent | 0b0412671da80d8c619e5f5a9b04c5bbf8aa39a4 (diff) |
fix disappearing first names, fallout from #32223
Diffstat (limited to 'FS/FS')
-rw-r--r-- | FS/FS/Template_Mixin.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/FS/FS/Template_Mixin.pm b/FS/FS/Template_Mixin.pm index fe484a4..606c6c8 100644 --- a/FS/FS/Template_Mixin.pm +++ b/FS/FS/Template_Mixin.pm @@ -7,7 +7,7 @@ use vars qw( $DEBUG $me ); # but NOT $conf use vars qw( $invoice_lines @buf ); #yuck -use List::Util qw(sum first); +use List::Util qw(sum); #can't import first, it conflicts with cust_main.first use Date::Format; use Date::Language; use Text::Template 1.20; @@ -1213,7 +1213,8 @@ sub print_generic { # create a tax section if we don't yet have one my $tax_description = 'Taxes, Surcharges, and Fees'; - my $tax_section = first { $_->{description} eq $tax_description } @sections; + my $tax_section = + List::Util::first { $_->{description} eq $tax_description } @sections; if (!$tax_section) { $tax_section = { 'description' => $tax_description }; push @sections, $tax_section if $multisection; |