Revision d89b7ad5
Von Bernd Blessmann vor etwa 12 Jahren hinzugefügt
| bin/mozilla/ic.pl | ||
|---|---|---|
| 1841 | 1841 |
$form->error($locale->text('Partnumber must not be set to empty!')) if $form->{id} && !$form->{partnumber};
|
| 1842 | 1842 |
|
| 1843 | 1843 |
# save part |
| 1844 |
$lxdebug->message($LXDebug::DEBUG1, "ic.pl: sellprice in save = $form->{sellprice}\n");
|
|
| 1845 | 1844 |
if (IC->save(\%myconfig, \%$form) == 3) {
|
| 1846 | 1845 |
$form->error($locale->text('Partnumber not unique!'));
|
| 1847 | 1846 |
} |
| ... | ... | |
| 1909 | 1908 |
$form->{"sellprice_$i"} /= $form->{exchangerate};
|
| 1910 | 1909 |
} |
| 1911 | 1910 |
|
| 1912 |
$lxdebug->message($LXDebug::DEBUG1, qq|sellprice_$i in previousform 2 = | . $form->{"sellprice_$i"} . qq|\n|);
|
|
| 1913 |
|
|
| 1914 | 1911 |
map { $form->{"taxaccounts_$i"} .= "$_ " } split / /, $newform{taxaccount};
|
| 1915 | 1912 |
chop $form->{"taxaccounts_$i"};
|
| 1916 | 1913 |
foreach my $item (qw(description rate taxnumber)) {
|
| ... | ... | |
| 1959 | 1956 |
} |
| 1960 | 1957 |
$form->{callback} = $callback;
|
| 1961 | 1958 |
} |
| 1962 |
$lxdebug->message($LXDebug::DEBUG1, qq|ic.pl: sellprice_$i nach sub save = | . $form->{"sellprice_$i"} . qq|\n|);
|
|
| 1963 | 1959 |
|
| 1964 | 1960 |
# redirect |
| 1965 | 1961 |
$form->redirect; |
Auch abrufbar als: Unified diff
Alte Debugausgaben entfernt.
Wenn diese wieder rein sollen, dann sollte der Debug-Level anders
gesetzt werden. Bei mir erscheinen die Ausgaben sonst immer.
($LXDebug::DEBUG1 ---> LXDebug->DEBUG1)?