login nicht aus $::form nehmen. Teil 1

[mfinanz.git] / SL / GL.pm

diff --git a/SL/GL.pm b/SL/GL.pm
index f97e2b2489da2c586a8fa221bd0a57764ad46300..016601e01c72e3a1ca346729f59bf73ab7ed6a6d 100644 (file)
--- a/SL/GL.pm
+++ b/SL/GL.pm
@@ -104,7 +104,7 @@ sub post_transaction {
     $query =
       qq|INSERT INTO gl (id, employee_id) | .
       qq|VALUES (?, (SELECT id FROM employee WHERE login = ?))|;
-    @values = ($form->{id}, $form->{login});
+    @values = ($form->{id}, $::myconfig{login});
     do_query($form, $dbh, $query, @values);
   }