diff options
| author | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-11-29 20:25:15 +0000 |
|---|---|---|
| committer | tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46> | 2007-11-29 20:25:15 +0000 |
| commit | e9ca709ec10b5d44eb0f1352e3438e02d5ebc93c (patch) | |
| tree | 5c9e2bf8954853deeb617abebda7cda6e7fb4cbd /LedgerSMB | |
| parent | 81afc95f60b3f9195aefb0452056463599a1be24 (diff) | |
Fix for bug 1831402
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@1921 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB')
| -rwxr-xr-x | LedgerSMB/IS.pm | 1 | ||||
| -rwxr-xr-x | LedgerSMB/OE.pm | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/LedgerSMB/IS.pm b/LedgerSMB/IS.pm index ad1f1c27..2f3eebef 100755 --- a/LedgerSMB/IS.pm +++ b/LedgerSMB/IS.pm @@ -244,6 +244,7 @@ sub invoice_details { if ( $form->{"qty_$i"} ) { + $form->{discount} = [] if ref $form->{discount} ne 'ARRAY'; $form->{totalqty} += $form->{"qty_$i"}; $form->{totalship} += $form->{"qty_$i"}; $form->{totalweight} += diff --git a/LedgerSMB/OE.pm b/LedgerSMB/OE.pm index 5b83c786..295e736c 100755 --- a/LedgerSMB/OE.pm +++ b/LedgerSMB/OE.pm @@ -1204,6 +1204,7 @@ sub order_details { if ( $form->{"qty_$i"} ) { + $form->{discount} = [] if ref $form->{discount} ne 'ARRAY'; $form->{totalqty} += $form->{"qty_$i"}; $form->{totalship} += $form->{"ship_$i"}; $form->{totalweight} += |