Revision b262a6e8
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
my $query = qq|SELECT e.$fld FROM exchangerate e
|
||
|
WHERE e.curr = ? AND e.transdate = ?|;
|
||
|
my ($exchangerate) = selectrow_query($self, $dbh, $query, $currency, $transdate);
|
||
|
$dbh->disconnect;
|
||
|
$dbh->disconnect();
|
||
|
|
||
|
$exchangerate = 1 if ($exchangerate == 0);
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
|
||
Auch abrufbar als: Unified diff
Wechselkurse dürfen nicht 0 sein.