Revision 0fee52dd
Von Sven Schöling vor fast 18 Jahren hinzugefügt
| SL/IC.pm | ||
|---|---|---|
| 1746 | 1746 |
} |
| 1747 | 1747 |
|
| 1748 | 1748 |
sub follow_account_chain {
|
| 1749 |
$main::lxdebug->enter_sub(); |
|
| 1749 |
$main::lxdebug->enter_sub(2);
|
|
| 1750 | 1750 |
|
| 1751 | 1751 |
my ($self, $form, $dbh, $transdate, $accno_id, $accno) = @_; |
| 1752 | 1752 |
|
| ... | ... | |
| 1772 | 1772 |
push(@visited_accno_ids, $accno_id); |
| 1773 | 1773 |
} |
| 1774 | 1774 |
|
| 1775 |
$main::lxdebug->leave_sub(); |
|
| 1775 |
$main::lxdebug->leave_sub(2);
|
|
| 1776 | 1776 |
|
| 1777 | 1777 |
return ($accno_id, $accno); |
| 1778 | 1778 |
} |
| 1779 | 1779 |
|
| 1780 | 1780 |
sub retrieve_accounts {
|
| 1781 |
$main::lxdebug->enter_sub(); |
|
| 1781 |
$main::lxdebug->enter_sub(2);
|
|
| 1782 | 1782 |
|
| 1783 | 1783 |
my ($self, $myconfig, $form, $parts_id, $index, $copy_accnos) = @_; |
| 1784 | 1784 |
|
| ... | ... | |
| 1831 | 1831 |
|
| 1832 | 1832 |
if (!$ref) {
|
| 1833 | 1833 |
$dbh->disconnect(); |
| 1834 |
return $main::lxdebug->leave_sub(); |
|
| 1834 |
return $main::lxdebug->leave_sub(2);
|
|
| 1835 | 1835 |
} |
| 1836 | 1836 |
|
| 1837 | 1837 |
$ref->{"inventory_accno_id"} = undef unless ($ref->{"is_part"});
|
| ... | ... | |
| 1868 | 1868 |
$dbh->disconnect(); |
| 1869 | 1869 |
|
| 1870 | 1870 |
unless ($ref) {
|
| 1871 |
$main::lxdebug->leave_sub(); |
|
| 1871 |
$main::lxdebug->leave_sub(2);
|
|
| 1872 | 1872 |
return; |
| 1873 | 1873 |
} |
| 1874 | 1874 |
|
| ... | ... | |
| 1885 | 1885 |
# " || taxaccounts_$index " . $form->{"taxaccounts_$index"} .
|
| 1886 | 1886 |
# " || taxaccounts " . $form->{"taxaccounts"});
|
| 1887 | 1887 |
|
| 1888 |
$main::lxdebug->leave_sub(); |
|
| 1888 |
$main::lxdebug->leave_sub(2);
|
|
| 1889 | 1889 |
} |
| 1890 | 1890 |
|
| 1891 | 1891 |
1; |
Auch abrufbar als: Unified diff
2 Funktionen auf trace level 2 gesetzt