=resolved uncommited prepared statement

[mfinanz.git] / SL / Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 8cab71c661c16e5fd4413feb63214aa2dc071d7c..22d5d1a31808ad845f639f84a4b2166c2d88bc97 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -3702,9 +3702,7 @@ sub _get_precision {
     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 precision 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 precision FROM defaults };

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

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

-    $sth->finish;

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