Fehlendes locale-Script für ein Perl-Datenbankupgradescript.

[kivitendo-erp.git] / SL / IR.pm

diff --git a/SL/IR.pm b/SL/IR.pm
index 3982b26..fe10a29 100644 (file)
--- a/SL/IR.pm
+++ b/SL/IR.pm
@@ -69,8 +69,7 @@ sub post_invoice {
     $uid = substr($uid, 2, 75);
 
     $query = qq|INSERT INTO ap (invnumber, employee_id)
-                VALUES ('$uid', (SELECT e.id FROM employee e
-                                WHERE e.login = '$form->{login}'))|;
+                VALUES ('$uid', '$form->{employee}')|;
     $dbh->do($query) || $form->dberror($query);
 
     $query = qq|SELECT a.id FROM ap a