From 1747261ad5f9827e5fe91e728698056d9d7d51fe Mon Sep 17 00:00:00 2001 From: einhverfr Date: Fri, 8 Dec 2006 19:26:05 +0000 Subject: Fixing bug 1611223 git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@748 4979c152-3d1c-0410-bac9-87ea11338e46 --- LedgerSMB/OE.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'LedgerSMB') diff --git a/LedgerSMB/OE.pm b/LedgerSMB/OE.pm index cc13693c..8311ec6a 100755 --- a/LedgerSMB/OE.pm +++ b/LedgerSMB/OE.pm @@ -59,7 +59,7 @@ sub transactions { if ($form->{type} =~ /_quotation$/) { $quotation = '1'; $ordnumber = 'quonumber'; - } + } my $number = $form->like(lc $form->{$ordnumber}); my $name = $form->like(lc $form->{$form->{vc}}); @@ -378,8 +378,9 @@ sub save { my $rowcount = $form->{rowcount}; for my $i (1 .. $rowcount) { + $form->{"ship_$i"} = 0 unless $form->{"ship_$i"}; $form->db_prepare_vars("orderitems_id_$i", "id_$i", - "description_$i", "project_id_$i", "ship_$i"); + "description_$i", "project_id_$i"); for (qw(qty ship)) { $form->{"${_}_$i"} = $form->parse_amount( -- cgit v1.2.3