Revision 8add0ccd
Von Bernd Blessmann vor fast 13 Jahren hinzugefügt
| SL/IR.pm | ||
|---|---|---|
| 853 | 853 |
$ref = selectfirst_hashref_query($form, $dbh, $query, conv_i($form->{id}));
|
| 854 | 854 |
map { $form->{$_} = $ref->{$_} } keys %$ref;
|
| 855 | 855 |
|
| 856 |
# remove any trailing whitespace |
|
| 857 |
$form->{currency} =~ s/\s*$//;
|
|
| 858 |
|
|
| 856 | 859 |
$form->{exchangerate} = $form->get_exchangerate($dbh, $form->{currency}, $form->{invdate}, "sell");
|
| 857 | 860 |
|
| 858 | 861 |
# get shipto |
Auch abrufbar als: Unified diff
Leerzeichen am Ende bei curr(ency) entfernen.
In der Datenbank werden f. Währungen drei Zeichen gespeichert. Eine
Währung mit zwei Zeichen hat dann ein Leerzeichen am Ende und der
Vergleich in den Maske schlägt fehl, wenn es dort bleibt.