From c264d7c975209abe5cd41073e1c073d02763129d Mon Sep 17 00:00:00 2001
From: Rolf Fluehmann <rolf.fluehmann@revamp-it.ch>
Date: Tue, 18 Mar 2014 15:58:56 +0100
Subject: [PATCH] =resolved uncommited prepared statement

Conflicts:
	SL/DB/MetaSetup/Default.pm
---
 SL/Controller/Admin.pm     | 2 --
 SL/DB/MetaSetup/Default.pm | 1 +
 SL/Form.pm                 | 2 --
 SL/Layout/Base.pm          | 4 +++-
 4 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/SL/Controller/Admin.pm b/SL/Controller/Admin.pm
index ad2d3ccdd..2145f0564 100644
--- 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 $sth = $dbh->prepare($query))->execute;
     ($coa) = selectrow_query($::form, $dbh, $query);
-    $sth->finish;
     $dbh->disconnect;
   };
   return $coa;
diff --git a/SL/DB/MetaSetup/Default.pm b/SL/DB/MetaSetup/Default.pm
index 821ed98fe..e8340c80e 100644
--- a/SL/DB/MetaSetup/Default.pm
+++ b/SL/DB/MetaSetup/Default.pm
@@ -75,6 +75,7 @@ __PACKAGE__->meta->columns(
   payments_changeable                       => { type => 'integer', default => '0', not_null => 1 },
   pdonumber                                 => { type => 'text' },
   ponumber                                  => { type => 'text' },
+  precision                                 => { type => 'numeric', precision => 15, scale => 5, default => '0.01', not_null => 1 },
   profit_determination                      => { type => 'text' },
   purchase_delivery_order_show_delete       => { type => 'boolean', default => 'true' },
   purchase_order_show_delete                => { type => 'boolean', default => 'true' },
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;
diff --git a/SL/Layout/Base.pm b/SL/Layout/Base.pm
index f3c40bf67..8c7aa3927 100644
--- a/SL/Layout/Base.pm
+++ b/SL/Layout/Base.pm
@@ -31,11 +31,13 @@ sub new {
 
 sub init_menu {
   my @menu_files;
-  if(scalar(grep(/^Switzerland/, (selectrow_query($::form, $::form->get_standard_dbh, 'SELECT coa FROM defaults'))[0]))) {
+  my $dbh = $::form->get_standard_dbh;
+  if(scalar(grep(/^Switzerland/, (selectrow_query($::form, $dbh, 'SELECT coa FROM defaults'))[0]))) {
     @menu_files = qw(menus/erp_ch.ini);
   } else {
     @menu_files = qw(menus/erp.ini);
   }
+  $dbh->commit;
   unshift @menu_files, 'menus/crm.ini' if $::instance_conf->crm_installed;
   Menu->new(@menu_files);
 }
-- 
2.20.1