Revision a986adb2
Von Jan Büren vor etwa 2 Jahren hinzugefügt
| SL/CP.pm | ||
|---|---|---|
| 136 | 136 |
|
| 137 | 137 |
# if this is a foreign currency transaction get exchangerate |
| 138 | 138 |
$ref->{exchangerate} =
|
| 139 |
$form->get_exchangerate($dbh, $ref->{curr}, $ref->{transdate}, $buysell)
|
|
| 139 |
$form->check_exchangerate($myconfig, $ref->{curr}, $ref->{transdate}, $buysell)
|
|
| 140 | 140 |
if ($form->{currency} ne $form->{defaultcurrency});
|
| 141 | 141 |
push @{ $form->{PR} }, $ref;
|
| 142 | 142 |
} |
Auch abrufbar als: Unified diff
get_exchangerate nach check_exchangerate migriert
Die Funktion ist bis auf die eingehenden Parameter identisch