X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/42a10479a98f0cf963ca2ca3d387d21225928679..90ae24e1d905ee20915b65a8d6d82d94d0694edc:/SL/Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 2e9458956..a01e9a8c6 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -2956,7 +2956,7 @@ sub get_history {
       qq|SELECT h.employee_id, h.itime::timestamp(0) AS itime, h.addition, h.what_done, emp.name, h.snumbers, h.trans_id AS id | .
       qq|FROM history_erp h | .
       qq|LEFT JOIN employee emp ON (emp.id = h.employee_id) | .
-      qq|WHERE (trans_id = | . $trans_id . qq|) $restriction | .
+      qq|WHERE (trans_id = | . $dbh->quote($trans_id) . qq|) $restriction | .
       $order;
 
     my $sth = $dbh->prepare($query) || $self->dberror($query);