From 0e523230382ba442bf726a1669b50eb68862218f Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jan=20B=C3=BCren?= Date: Mon, 10 Jun 2013 13:22:18 +0200 Subject: [PATCH] =?utf8?q?SQL-Fix=20f=C3=BCr=20vergessene=20currency=5Fid?= =?utf8?q?=20bei=20AP=20currency=5Fid=20auch=20in=20der=20if-bedingung=20s?= =?utf8?q?chreiben,=20nicht=20nur=20im=20else-Zweig?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- SL/AP.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/SL/AP.pm b/SL/AP.pm index bc5a36202..7a148d610 100644 --- a/SL/AP.pm +++ b/SL/AP.pm @@ -170,9 +170,10 @@ sub post_transaction { $uid = substr($uid, 2, 75); $query = - qq|INSERT INTO ap (invnumber, employee_id) | . - qq|VALUES (?, (SELECT e.id FROM employee e WHERE e.login = ?))|; - do_query($form, $dbh, $query, $uid, $form->{login}); + qq|INSERT INTO ap (invnumber, employee_id,currency_id) | . + qq|VALUES (?, (SELECT e.id FROM employee e WHERE e.login = ?), + (SELECT id FROM currencies WHERE name = ?) )|; + do_query($form, $dbh, $query, $uid, $form->{login}, $form->{currency}); $query = qq|SELECT a.id FROM ap a WHERE a.invnumber = ?|; -- 2.20.1