- my ($last) = grep { $_->{tax_section} || !$_->{summarized} and !($finance_section && $_->{'description'} eq $finance_section) and $_->{'description'} !~ /^\d+ $/ } reverse @sections;
-
- #false laziness w/invoice_latexsummary
- foreach my $section (
- grep {
- $_->{tax_section} || !$_->{summarized}
- and ! $_->{adjust_section}
- and !($finance_section && $_->{'description'} eq $finance_section)
- and $_->{'description'} !~ /^\d+ $/
- }
- @sections
- ) {