From c61e43ab6bdd595be5b68a36bcc3a1d52b502dde Mon Sep 17 00:00:00 2001 From: einhverfr Date: Tue, 10 Jul 2007 21:54:36 +0000 Subject: Fixing partial commit due to update_defaults in legacy code git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1377 4979c152-3d1c-0410-bac9-87ea11338e46 --- LedgerSMB/OE.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'LedgerSMB/OE.pm') diff --git a/LedgerSMB/OE.pm b/LedgerSMB/OE.pm index a2959d4b..2bcdbdbb 100644 --- a/LedgerSMB/OE.pm +++ b/LedgerSMB/OE.pm @@ -253,7 +253,6 @@ sub save { "currency", "department_id", "employee_id", "language_code", "ponumber", "terms" ); - # connect to database, turn off autocommit my $dbh = $form->{dbh}; my @queryargs; @@ -277,11 +276,12 @@ sub save { ? "sqnumber" : "rfqnumber"; } - $form->{"$ordnumber"} = $form->update_defaults( $myconfig, $numberfld, $dbh ) unless $form->{ordnumber}; + + my $query; my $sth; my $null; -- cgit v1.2.3