X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FIC.pm;h=a2703b64f656fc8e93e6326afbb6eba81f41eae1;hb=546480e0d8c4684288967aa54b80207d5c57a71a;hp=d692b6a7588ac3a787e17770e057cb2abd9cf7ae;hpb=213317d3ebd9073e68ac4d0cc789b94c377f575e;p=kivitendo-erp.git diff --git a/SL/IC.pm b/SL/IC.pm index d692b6a75..a2703b64f 100644 --- a/SL/IC.pm +++ b/SL/IC.pm @@ -1746,7 +1746,7 @@ sub retrieve_languages { } sub follow_account_chain { - $main::lxdebug->enter_sub(); + $main::lxdebug->enter_sub(2); my ($self, $form, $dbh, $transdate, $accno_id, $accno) = @_; @@ -1772,13 +1772,13 @@ sub follow_account_chain { push(@visited_accno_ids, $accno_id); } - $main::lxdebug->leave_sub(); + $main::lxdebug->leave_sub(2); return ($accno_id, $accno); } sub retrieve_accounts { - $main::lxdebug->enter_sub(); + $main::lxdebug->enter_sub(2); my ($self, $myconfig, $form, $parts_id, $index, $copy_accnos) = @_; @@ -1831,7 +1831,7 @@ sub retrieve_accounts { if (!$ref) { $dbh->disconnect(); - return $main::lxdebug->leave_sub(); + return $main::lxdebug->leave_sub(2); } $ref->{"inventory_accno_id"} = undef unless ($ref->{"is_part"}); @@ -1868,7 +1868,7 @@ sub retrieve_accounts { $dbh->disconnect(); unless ($ref) { - $main::lxdebug->leave_sub(); + $main::lxdebug->leave_sub(2); return; } @@ -1885,26 +1885,7 @@ sub retrieve_accounts { # " || taxaccounts_$index " . $form->{"taxaccounts_$index"} . # " || taxaccounts " . $form->{"taxaccounts"}); - $main::lxdebug->leave_sub(); -} - -sub has_storno { - $main::lxdebug->enter_sub(); - - my ($self, $myconfig, $form) = @_; - - $main::lxdebug->leave_sub() and return 0 unless ($form->{id}); - - my $dbh = $form->dbconnect($myconfig); - - my $query = qq|SELECT storno FROM ar WHERE id = ?|; - my ($result) = selectrow_query($form, $dbh, $query, $form->{id}); - - $dbh->disconnect(); - - $main::lxdebug->leave_sub(); - - return $result; + $main::lxdebug->leave_sub(2); } 1;