Revision ac517355
Von Philip Reetz vor etwa 17 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
| 1170 | 1170 |
sub update {
|
| 1171 | 1171 |
$lxdebug->enter_sub(); |
| 1172 | 1172 |
|
| 1173 |
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate creditlimit creditremaining);
|
|
| 1173 |
my ($recursive_call) = shift; |
|
| 1174 |
|
|
| 1175 |
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate creditlimit creditremaining) unless $recursive_call;
|
|
| 1174 | 1176 |
|
| 1175 | 1177 |
$form->{print_and_post} = 0 if $form->{second_run};
|
| 1176 | 1178 |
$taxincluded = "checked" if $form->{taxincluded};
|
| bin/mozilla/oe.pl | ||
|---|---|---|
| 1101 | 1101 |
|
| 1102 | 1102 |
sub update {
|
| 1103 | 1103 |
$lxdebug->enter_sub(); |
| 1104 |
|
|
| 1105 |
my ($recursive_call) = shift; |
|
| 1104 | 1106 |
|
| 1105 | 1107 |
set_headings($form->{"id"} ? "edit" : "add");
|
| 1106 | 1108 |
|
| 1107 |
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate creditlimit creditremaining);
|
|
| 1109 |
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate creditlimit creditremaining) unless $recursive_call;
|
|
| 1108 | 1110 |
$form->{update} = 1;
|
| 1109 | 1111 |
|
| 1110 | 1112 |
$payment_id = $form->{payment_id} if $form->{payment_id};
|
Auch abrufbar als: Unified diff
Kreditlimit wurde doppelt geparsed, wenn Kundenauswahl nicht eindeutig