Revision 4e41d2d1
Von Jan Büren vor etwa 1 Jahr hinzugefügt
| SL/AP.pm | ||
|---|---|---|
|
|
||
|
$form->{defaultcurrency} = $form->get_default_currency($myconfig);
|
||
|
$form->{taxincluded} = 0 unless $form->{taxincluded};
|
||
|
$form->{script} = 'ap.pl' unless $form->{script};
|
||
|
|
||
|
# make sure to have a id
|
||
|
my ($query, $sth, @values);
|
||
| ... | ... | |
|
|
||
|
# update exchange rate record
|
||
|
if (($form->{currency} ne $form->{defaultcurrency}) && !$exchangerate) {
|
||
|
$form->{script} = 'ap.pl';
|
||
|
$form->update_exchangerate($dbh, $form->{currency},
|
||
|
$form->{"datepaid_$i"},
|
||
|
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