2 Funktionen auf trace level 2 gesetzt

[mfinanz.git] / SL / AM.pm

diff --git a/SL/AM.pm b/SL/AM.pm
index be5d8a4310d1ee63133a0893569d340d95a09ac1..109fead5c4e2c9006e29870343d57729105e64b9 100644 (file)
--- a/SL/AM.pm
+++ b/SL/AM.pm
@@ -180,7 +180,7 @@ sub save_account {
   my ($tax_id, $taxkey) = split(/--/, $form->{tax});
   my $startdate = $form->{startdate} ? $form->{startdate} : "1970-01-01";
 
   my ($tax_id, $taxkey) = split(/--/, $form->{tax});
   my $startdate = $form->{startdate} ? $form->{startdate} : "1970-01-01";
 

-  if ($form->{id} && $form->{orphaned}) {
+  if ($form->{id}) {

     $query = qq|UPDATE chart SET
                 accno = ?, description = ?, charttype = ?,
                 gifi_accno = ?, category = ?, link = ?,
     $query = qq|UPDATE chart SET
                 accno = ?, description = ?, charttype = ?,
                 gifi_accno = ?, category = ?, link = ?,


@@ -825,14 +825,13 @@ sub get_buchungsgruppe {
       qq|SELECT count(id) = 0 AS orphaned
          FROM parts
          WHERE buchungsgruppen_id = ?|;
       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"},
   }
 
   $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,
 
   my $module = "IC";
   $query = qq|SELECT c.accno, c.description, c.link, c.id,