X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/902b70fc8afe197df219583aef4913f152f1964f..c264d7c975209abe5cd41073e1c073d02763129d:/SL/Form.pm diff --git a/SL/Form.pm b/SL/Form.pm index 8cab71c66..22d5d1a31 100644 --- 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 $sth = $dbh->prepare($query))->execute; ($precision) = selectrow_query($::form, $dbh, $query); - $sth->finish; $dbh->disconnect; }; return $precision;