Revision 4e41d2d1
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