Revision b193b8c3
Von Jan Büren vor mehr als 1 Jahr hinzugefügt
SL/Form.pm | ||
---|---|---|
1479 | 1479 |
$main::lxdebug->leave_sub(); |
1480 | 1480 |
} |
1481 | 1481 |
|
1482 |
sub save_exchangerate { |
|
1483 |
$main::lxdebug->enter_sub(); |
|
1484 |
|
|
1485 |
my ($self, $myconfig, $currency, $transdate, $rate, $fld) = @_; |
|
1486 |
|
|
1487 |
SL::DB->client->with_transaction(sub { |
|
1488 |
my $dbh = SL::DB->client->dbh; |
|
1489 |
|
|
1490 |
my ($buy, $sell); |
|
1491 |
|
|
1492 |
$buy = $rate if $fld eq 'buy'; |
|
1493 |
$sell = $rate if $fld eq 'sell'; |
|
1494 |
|
|
1495 |
|
|
1496 |
$self->update_exchangerate($dbh, $currency, $transdate, $buy, $sell); |
|
1497 |
1; |
|
1498 |
}) or do { die SL::DB->client->error }; |
|
1499 |
|
|
1500 |
$main::lxdebug->leave_sub(); |
|
1501 |
} |
|
1502 |
|
|
1503 | 1482 |
sub check_exchangerate { |
1504 | 1483 |
$main::lxdebug->enter_sub(); |
1505 | 1484 |
|
Auch abrufbar als: Unified diff
save_exchangerate entfernt (wurde benötigt für backorder_exchangerate)