X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/32fa27cee3f69042ee74e8efecf1f4396ea5c7bb..a7e23c08f2f06cc58950a37bc7bf7a0de957be53:/bin/mozilla/bankaccounts.pl

diff --git a/bin/mozilla/bankaccounts.pl b/bin/mozilla/bankaccounts.pl
index 3155e2558..a11fb6bb6 100644
--- a/bin/mozilla/bankaccounts.pl
+++ b/bin/mozilla/bankaccounts.pl
@@ -32,6 +32,16 @@ sub bank_account_edit {
   $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();