}
sub follow_account_chain {
- $main::lxdebug->enter_sub();
+ $main::lxdebug->enter_sub(2);
my ($self, $form, $dbh, $transdate, $accno_id, $accno) = @_;
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) = @_;
if (!$ref) {
$dbh->disconnect();
- return $main::lxdebug->leave_sub();
+ return $main::lxdebug->leave_sub(2);
}
$ref->{"inventory_accno_id"} = undef unless ($ref->{"is_part"});
$dbh->disconnect();
unless ($ref) {
- $main::lxdebug->leave_sub();
+ $main::lxdebug->leave_sub(2);
return;
}
# " || 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;