X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/5dfee15a6634923410679ad91d965b2df34172a4..baf072736bc20b4d4da2261aeb5c66741f168d22:/SL/IO.pm

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)