Revision ec2e4394
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| bin/mozilla/ic.pl | ||
|---|---|---|
| 33 | 33 |
|
| 34 | 34 |
use POSIX qw(strftime); |
| 35 | 35 |
use List::Util qw(max); |
| 36 |
use List::MoreUtils qw(any); |
|
| 36 | 37 |
|
| 37 | 38 |
use SL::AM; |
| 38 | 39 |
use SL::IC; |
| ... | ... | |
| 1577 | 1578 |
|
| 1578 | 1579 |
# escape ampersands |
| 1579 | 1580 |
$form->{$key} =~ s/&/%26/g;
|
| 1580 |
$previousform .= qq|$key=$form->{$key}&|;
|
|
| 1581 |
if (any { $key eq $_ } qw(sellprice listprice lastcost)) {
|
|
| 1582 |
$previousform .= sprintf qq|%s=%s&|, $key, $form->format_amount(\%myconfig, $form->{$key});
|
|
| 1583 |
} else {
|
|
| 1584 |
$previousform .= qq|$key=$form->{$key}&|;
|
|
| 1585 |
} |
|
| 1581 | 1586 |
} |
| 1582 | 1587 |
chop $previousform; |
| 1583 | 1588 |
$previousform = $form->escape($form->escape($previousform, 1)); |
Auch abrufbar als: Unified diff
Preise in previousform müssen auch korrekt formatiert werden.
Fix für Bug 987.