summaryrefslogtreecommitdiff
path: root/LedgerSMB/OE.pm
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-07-10 21:54:36 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2007-07-10 21:54:36 +0000
commitc61e43ab6bdd595be5b68a36bcc3a1d52b502dde (patch)
tree9a9c9e7113b59b517bc006b322b635c5b7f861bb /LedgerSMB/OE.pm
parent76764f45c77fcda19f69ab4b99d248bf6319d3c9 (diff)
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
Diffstat (limited to 'LedgerSMB/OE.pm')
-rw-r--r--LedgerSMB/OE.pm4
1 files changed, 2 insertions, 2 deletions
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;