Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision b895ab3c

Von Jan Büren vor etwa 2 Jahren hinzugefügt

  • ID b895ab3cddb09c3b4a47c92aca18c23810f6ee7f
  • Vorgänger f95e112a
  • Nachfolger eb701c64

Form: get_exchangerate entfernt

Unterschiede anzeigen:

SL/Form.pm
$main::lxdebug->leave_sub();
}
sub get_exchangerate {
$main::lxdebug->enter_sub();
my ($self, $dbh, $curr, $transdate, $fld) = @_;
my ($query);
unless ($transdate && $curr) {
$main::lxdebug->leave_sub();
return 1;
}
$query = qq|SELECT name AS curr FROM currencies WHERE id = (SELECT currency_id FROM defaults)|;
my ($defaultcurrency) = selectrow_query($self, $dbh, $query);
if ($curr eq $defaultcurrency) {
$main::lxdebug->leave_sub();
return 1;
}
$query = qq|SELECT e.$fld FROM exchangerate e
WHERE e.currency_id = (SELECT id FROM currencies WHERE name = ?) AND e.transdate = ?|;
my ($exchangerate) = selectrow_query($self, $dbh, $query, $curr, $transdate);
$main::lxdebug->leave_sub();
return $exchangerate;
}
sub check_exchangerate {
$main::lxdebug->enter_sub();

Auch abrufbar als: Unified diff