Kosmetik, private Variablen

diff --git a/SL/GL.pm b/SL/GL.pm
index 27aa179..eda7128 100644 (file)
--- a/SL/GL.pm
+++ b/SL/GL.pm
@@ -185,8 +185,7 @@ sub post_transaction {
   $dbh->disconnect;
   $main::lxdebug->leave_sub();
 
-  $rc;
-
+  return $rc;
 }
 
 sub all_transactions {
@@ -379,6 +378,8 @@ sub all_transactions {
   my $trans_id  = "";
   my $trans_id2 = "";
 
+  my ($i, $j, $k, $l, $ref, $ref2);
+
   $form->{GL} = [];
   while (my $ref0 = $sth->fetchrow_hashref(NAME_lc)) {