diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-08-20 18:27:39 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-08-20 18:27:39 +0000 |
| commit | 9924b1bea3e50f6a1570a44d43577bb544e282cc (patch) | |
| tree | 8453251a98b51be2f98c31a453debc9e54cfedf9 /LedgerSMB | |
| parent | 5469e9016ccfbbbf58e1630a39461a686a106355 (diff) | |
Correcting errors on Perl 5.10 when sales tax is applied
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2286 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
| -rw-r--r-- | LedgerSMB/IS.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/LedgerSMB/IS.pm b/LedgerSMB/IS.pm index 51edf0ed..36777a4f 100644 --- a/LedgerSMB/IS.pm +++ b/LedgerSMB/IS.pm @@ -375,7 +375,7 @@ sub invoice_details { $tax += Tax::apply_taxes( \@taxaccounts, $form, $linetotal ); } - foreach $item (@taxaccounts) { + foreach my $item (@taxaccounts) { push @taxrates, 100 * $item->rate; $taxaccounts{ $item->account } += $item->value; if ( $form->{taxincluded} ) { |