From 5b5a8e417ddbbf0dd7ca6027d9cff5cc38e409f5 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Thu, 5 Jul 2007 09:30:33 +0000
Subject: [PATCH] =?utf8?q?$form->get=5Fstandard=5Fdbh()=20benutzen=20f?=
 =?utf8?q?=C3=BCr=20verbesserte=20Geschwindigkeit?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/IC.pm | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/SL/IC.pm b/SL/IC.pm
index e7f1327e4..f69e98ce2 100644
--- a/SL/IC.pm
+++ b/SL/IC.pm
@@ -1538,7 +1538,7 @@ sub retrieve_accounts {
 
   $form->{"taxzone_id"} *= 1;
 
-  $dbh = $form->dbconnect($myconfig);
+  $dbh = $form->get_standard_dbh($myconfig);
 
   my $transdate = "";
   if ($form->{type} eq "invoice") {
@@ -1576,10 +1576,7 @@ sub retrieve_accounts {
     qq|WHERE p.id = ?|;
   my $ref = selectfirst_hashref_query($form, $dbh, $query, $parts_id);
 
-  if (!$ref) {
-    $dbh->disconnect();
-    return $main::lxdebug->leave_sub(2);
-  }
+  return $main::lxdebug->leave_sub(2) if (!$ref);
 
   $ref->{"inventory_accno_id"} = undef unless ($ref->{"is_part"});
 
-- 
2.20.1