=resolved uncommited prepared statement

[mfinanz.git] / SL / Controller / Admin.pm

diff --git a/SL/Controller/Admin.pm b/SL/Controller/Admin.pm
index ad2d3ccdd2731f9e6b18b22d8bcfa189a9bb3a8f..2145f05641b60caf3de781965f764a9b360e3047 100644 (file)
--- a/SL/Controller/Admin.pm
+++ b/SL/Controller/Admin.pm
@@ -680,9 +680,7 @@ sub get_default_coa {
     my $dbconnect = 'dbi:Pg:dbname=' . $client->dbname . ';host=' . $client->dbhost . ';port=' . $client->dbport;
     my $dbh       = DBI->connect($dbconnect, $client->dbuser, $client->dbpasswd);
     my $query = q{ SELECT coa FROM defaults };
     my $dbconnect = 'dbi:Pg:dbname=' . $client->dbname . ';host=' . $client->dbhost . ';port=' . $client->dbport;
     my $dbh       = DBI->connect($dbconnect, $client->dbuser, $client->dbpasswd);
     my $query = q{ SELECT coa FROM defaults };

-    (my $sth = $dbh->prepare($query))->execute;

     ($coa) = selectrow_query($::form, $dbh, $query);
     ($coa) = selectrow_query($::form, $dbh, $query);

-    $sth->finish;

     $dbh->disconnect;
   };
   return $coa;
     $dbh->disconnect;
   };
   return $coa;