From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 21 Feb 2007 12:21:35 +0000 (+0000)
Subject: Falsche Funktionsaufrufe. Fix für Bugzilla ID 560.
X-Git-Tag: release-2.4.2~18
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=be47ce7f0ee15e692ade53804c8b4682dc89d627;p=kivitendo-erp.git

Falsche Funktionsaufrufe. Fix für Bugzilla ID 560.
---

diff --git a/SL/AM.pm b/SL/AM.pm
index be5d8a431..91a334bde 100644
--- a/SL/AM.pm
+++ b/SL/AM.pm
@@ -825,14 +825,13 @@ sub get_buchungsgruppe {
       qq|SELECT count(id) = 0 AS orphaned
          FROM parts
          WHERE buchungsgruppen_id = ?|;
-    ($form->{orphaned}) = selectrow_arra($query, undef, $form->{id});
-    $form->dberror($query . " ($form->{id})") if ($dbh->err);
+    ($form->{orphaned}) = selectrow_query($form, $dbh, $query, $form->{id});
   }
 
   $query = "SELECT inventory_accno_id, income_accno_id, expense_accno_id ".
     "FROM defaults";
   ($form->{"std_inventory_accno_id"}, $form->{"std_income_accno_id"},
-   $form->{"std_expense_accno_id"}) = $dbh->selectrow_array($query);
+   $form->{"std_expense_accno_id"}) = selectrow_query($form, $dbh, $query);
 
   my $module = "IC";
   $query = qq|SELECT c.accno, c.description, c.link, c.id,