if-Abfrage eindeutiger geschrieben und Variablenname klarer definiert

[mfinanz.git] / SL / IO.pm

diff --git a/SL/IO.pm b/SL/IO.pm
index 83af0d483f2feeee5a3719e9138162629f5ce320..b840e458cae134455ff9f6b81fb5dd1c661ae9a8 100644 (file)
--- 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)