Revision ebd37c0e
Von Thomas Heck vor etwa 12 Jahren hinzugefügt
| SL/BankAccount.pm | ||
|---|---|---|
|
return $account;
|
||
|
}
|
||
|
|
||
|
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 list {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
| bin/mozilla/bankaccounts.pl | ||
|---|---|---|
|
$main::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();
|
||
|
}
|
||
|
|
||
|
sub bank_account_display_form {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
| templates/webpages/bankaccounts/bank_account_display_form.html | ||
|---|---|---|
|
|
||
|
[%- IF account.id %]
|
||
|
<input type="submit" name="action_bank_account_save" value="[% 'Save' | $T8 %]">
|
||
|
<!-- <input type="submit" name="action_bank_account_delete" value="[% 'Delete' | $T8 %]"> -->
|
||
|
<input type="submit" name="action_bank_account_delete" value="[% 'Delete' | $T8 %]">
|
||
|
[%- ELSE %]
|
||
|
<input type="submit" name="action_bank_account_save" value="[% 'Add' | $T8 %]">
|
||
|
[%- END %]
|
||
Auch abrufbar als: Unified diff
Bankkonten löschbar machen
Da Bankkonten nur von SEPA verwendet
werden, muss nicht geprüft werden, ob das Konto noch verwendet wird.
fixt #2085