diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-30 05:08:55 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-30 05:08:55 +0000 |
| commit | b5abb3df53ff5970bb422f731663fbef17190954 (patch) | |
| tree | 1e0a8366544b353170dcb3ceefb8611d286adb36 /LedgerSMB/IS.pm | |
| parent | 230d7095e37f5cf9637f12d7de38a77526b74d4d (diff) | |
Fixing IR, IS, and CT bugs
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@382 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/IS.pm')
| -rwxr-xr-x | LedgerSMB/IS.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/LedgerSMB/IS.pm b/LedgerSMB/IS.pm index e8c09671..74b35352 100755 --- a/LedgerSMB/IS.pm +++ b/LedgerSMB/IS.pm @@ -907,7 +907,6 @@ sub post_invoice { $pth->finish; # project - $project_id = 'NULL'; if ($form->{"projectnumber_$i"}) { ($null, $project_id) = split /--/, @@ -1055,7 +1054,10 @@ sub post_invoice { SELECT id FROM invoice WHERE description = '$uid'|; ($invoice_id) = $dbh->selectrow_array($query); - + + unless ($form->{"deliverydate_$i"}){ + undef $form->{"deliverydate_$i"}; + } $query = qq| UPDATE invoice SET trans_id = ?, @@ -1361,8 +1363,6 @@ sub post_invoice { $form->{terms} *= 1; $form->{taxincluded} *= 1; - # if this is from a till - my $till = ($form->{till}) ? qq|'$form->{till}'| : "NULL"; $form->{invnumber} = $form->update_defaults($myconfig, "sinumber", $dbh) |