X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FIO.pm;h=b840e458cae134455ff9f6b81fb5dd1c661ae9a8;hb=8e5b1f0e363dd22883e931006b8ac414bad9bbc5;hp=83af0d483f2feeee5a3719e9138162629f5ce320;hpb=40c2c37c2db3224e2fa477fd77c34b044a1825d3;p=kivitendo-erp.git

diff --git a/SL/IO.pm b/SL/IO.pm
index 83af0d483..b840e458c 100644
--- a/SL/IO.pm
+++ b/SL/IO.pm
@@ -46,7 +46,7 @@ sub set_datepaid {
 
   my ($curr_datepaid, $curr_paid) = selectfirst_array_query($form, $dbh, qq|SELECT datepaid, paid FROM $table WHERE id = ?|, $id);
 
-  $query    = <<SQL;
+  my $query    = <<SQL;
     SELECT MAX(at.transdate)
     FROM acc_trans at
     LEFT JOIN chart c ON (at.chart_id = c.id)