Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision b193b8c3

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

  • ID b193b8c39ec7c8b8072f0ed5ab6d27d41da09767
  • Vorgänger 3d3d7335
  • Nachfolger 14f563b8

save_exchangerate entfernt (wurde benötigt für backorder_exchangerate)

Unterschiede anzeigen:

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

  
bin/mozilla/oe.pl
1795 1795
  $main::lxdebug->leave_sub();
1796 1796
}
1797 1797

  
1798
sub save_exchangerate {
1799
  $main::lxdebug->enter_sub();
1800

  
1801
  my $form     = $main::form;
1802
  my %myconfig = %main::myconfig;
1803
  my $locale   = $main::locale;
1804

  
1805
  $form->isblank("exchangerate", $locale->text('Exchangerate missing!'));
1806
  $form->{exchangerate} =
1807
    $form->parse_amount(\%myconfig, $form->{exchangerate});
1808
  $form->save_exchangerate(\%myconfig, $form->{currency},
1809
                           $form->{exchangeratedate},
1810
                           $form->{exchangerate}, $form->{buysell});
1811

  
1812
  &invoice;
1813

  
1814
  $main::lxdebug->leave_sub();
1815
}
1816

  
1817 1798
sub save_as_new {
1818 1799
  $main::lxdebug->enter_sub();
1819 1800

  

Auch abrufbar als: Unified diff