X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/ce3ce404919a3e39c4b966db7b7d02076cd8c7e5..322b14b7c67d81ce1ca0d88d337c83824df488e7:/SL/GL.pm

diff --git a/SL/GL.pm b/SL/GL.pm
index 27aa179e6..eda712813 100644
--- 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)) {