Revision feb806be
| SL/AP.pm | ||
|---|---|---|
| 84 | 84 |
|
| 85 | 85 |
$form->{defaultcurrency} = $form->get_default_currency($myconfig);
|
| 86 | 86 |
$form->{taxincluded} = 0 unless $form->{taxincluded};
|
| 87 |
$form->{script} = 'ap.pl' unless $form->{script};
|
|
| 87 | 88 |
|
| 88 | 89 |
# make sure to have a id |
| 89 | 90 |
my ($query, $sth, @values); |
| ... | ... | |
| 412 | 413 |
|
| 413 | 414 |
# update exchange rate record |
| 414 | 415 |
if (($form->{currency} ne $form->{defaultcurrency}) && !$exchangerate) {
|
| 415 |
$form->{script} = 'ap.pl';
|
|
| 416 | 416 |
$form->update_exchangerate($dbh, $form->{currency},
|
| 417 | 417 |
$form->{"datepaid_$i"},
|
| 418 | 418 |
0, $form->{"exchangerate_$i"});
|
Auch abrufbar als: Unified diff
update_exchangerate prüft in Abhängigkeit des Skript
Entsprechend script am Anfang der Routine setzen, damit alle
Aufrufe von update_exchangerate vom richtigen "caller" ausgehen