Revision df870c64
Von Moritz Bunkus vor etwa 17 Jahren hinzugefügt
| bin/mozilla/oe.pl | ||
|---|---|---|
| 545 | 545 |
|
| 546 | 546 |
set_headings($form->{"id"} ? "edit" : "add");
|
| 547 | 547 |
|
| 548 |
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate creditlimit creditremaining) unless $recursive_call;
|
|
| 548 |
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) } qw(exchangerate) unless $recursive_call;
|
|
| 549 | 549 |
$form->{update} = 1;
|
| 550 | 550 |
|
| 551 | 551 |
$payment_id = $form->{payment_id} if $form->{payment_id};
|
| ... | ... | |
| 1579 | 1579 |
|
| 1580 | 1580 |
map { $form->{"select$_"} = "" } ($form->{vc}, currency);
|
| 1581 | 1581 |
|
| 1582 |
map { $form->{$_} = $form->parse_amount(\%myconfig, $form->{$_}) }
|
|
| 1583 |
qw(creditlimit creditremaining); |
|
| 1584 |
|
|
| 1585 | 1582 |
$currency = $form->{currency};
|
| 1586 | 1583 |
&invoice_links; |
| 1587 | 1584 |
|
| ... | ... | |
| 1951 | 1948 |
qw(partnumber description unit); |
| 1952 | 1949 |
} |
| 1953 | 1950 |
|
| 1954 |
map { $form->{$_} = $form->format_amount(\%myconfig, $form->{$_}, 0, "0") }
|
|
| 1955 |
qw(creditlimit creditremaining); |
|
| 1956 |
|
|
| 1957 | 1951 |
&update; |
| 1958 | 1952 |
|
| 1959 | 1953 |
$lxdebug->leave_sub(); |
Auch abrufbar als: Unified diff
creditlimit und creditremaining werden nicht mehr formatiert übergeben, sondern unformatiert.