Revision bea3f989
Von Moritz Bunkus vor mehr als 14 Jahren hinzugefügt
| SL/AR.pm | ||
|---|---|---|
| 54 | 54 |
|
| 55 | 55 |
my $dbh = $provided_dbh ? $provided_dbh : $form->dbconnect_noauto($myconfig); |
| 56 | 56 |
$form->{defaultcurrency} = $form->get_default_currency($myconfig);
|
| 57 |
delete $form->{currency} unless $form->{default_currency};
|
|
| 57 | 58 |
|
| 58 | 59 |
# set exchangerate |
| 59 | 60 |
$form->{exchangerate} = ($form->{currency} eq $form->{defaultcurrency}) ? 1 :
|
| ... | ... | |
| 346 | 347 |
|
| 347 | 348 |
$self->setup_form($form); |
| 348 | 349 |
|
| 349 |
($form->{defaultcurrency}) = selectrow_query($form, $dbh, qq|SELECT curr FROM defaults|);
|
|
| 350 |
$form->{defaultcurrency} = (split m/:/, $form->{defaultcurrency})[0];
|
|
| 351 |
$form->{currency} = $form->{defaultcurrency} if ($form->{defaultcurrency} && ($form->{currency} =~ m/^\s*$/));
|
|
| 352 |
|
|
| 353 |
$form->{exchangerate} = $form->format_amount($myconfig, $form->{exchangerate});
|
|
| 350 |
$form->{exchangerate} = $form->format_amount($myconfig, $form->{exchangerate});
|
|
| 351 |
$form->{defaultcurrency} = $form->get_default_currency($myconfig);
|
|
| 352 |
delete $form->{currency} unless $form->{default_currency};
|
|
| 354 | 353 |
|
| 355 | 354 |
# Get the AR accno (which is normally done by Form::create_links()). |
| 356 | 355 |
$query = |
Auch abrufbar als: Unified diff
Nicht mit Wechselkursen arbeiten, wenn keine Währungen konfiguriert sind
Fix für Bug 1349