adjustments Erfolgsrechnung

[mfinanz.git] / SL / Form.pm

diff --git a/SL/Form.pm b/SL/Form.pm
index 8cab71c661c16e5fd4413feb63214aa2dc071d7c..35050a0c7ac72325db63be0979af0fa297843d0c 100644 (file)
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -850,7 +850,7 @@ sub format_amount {
   return $amount;
 }
 
-sub format_amount_unit {
+sub format_amount_units {
   $main::lxdebug->enter_sub();
 
   my $self             = shift;
@@ -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;