projekt kivitendo

sub delete {

  $::lxdebug->enter_sub();

  my $self     = shift;

  my %params   = @_;

  Common::check_params(\%params, qw(id));

  my $dbh = $params{dbh} || $::form->get_standard_dbh(%::myconfig);

  my $query = '

    DELETE

    FROM bank_accounts

    WHERE id = ?';

  do_query($::form, $dbh, $query, conv_i($params{id}));

  $dbh->commit();

  $::lxdebug->leave_sub();

}

sub bank_account_delete {

  $::lxdebug->enter_sub();

  SL::BankAccount->delete(id => $::form->{account}{id});

  print $::form->redirect_header('bankaccounts.pl?action=bank_account_list');

  $::lxdebug->leave_sub();

}

   <input type="submit" name="action_bank_account_delete" value="[% 'Delete' | $T8 %]">