projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
ActsAsList: Neue Funktion "reorder_list" auch für Projekttypen
[kivitendo-erp.git]
/
bin
/
mozilla
/
bankaccounts.pl
diff --git
a/bin/mozilla/bankaccounts.pl
b/bin/mozilla/bankaccounts.pl
index
0815954
..
a11fb6b
100644
(file)
--- a/
bin/mozilla/bankaccounts.pl
+++ b/
bin/mozilla/bankaccounts.pl
@@
-1,5
+1,6
@@
use strict;
use strict;
+use List::MoreUtils qw(any);
use POSIX qw(strftime);
use SL::BankAccount;
use POSIX qw(strftime);
use SL::BankAccount;
@@
-31,6
+32,16
@@
sub bank_account_edit {
$main::lxdebug->leave_sub();
}
$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();
sub bank_account_display_form {
$main::lxdebug->enter_sub();
@@
-125,6
+136,7
@@
sub bank_account_list {
'attachment_basename' => $locale->text('bankaccounts') . strftime('_%Y%m%d', localtime time),
);
$report->set_options_from_form();
'attachment_basename' => $locale->text('bankaccounts') . strftime('_%Y%m%d', localtime time),
);
$report->set_options_from_form();
+ $locale->set_numberformat_wo_thousands_separator(\%::myconfig) if lc($report->{options}->{output_format}) eq 'csv';
$report->set_columns(%column_defs);
$report->set_column_order(@columns);
$report->set_columns(%column_defs);
$report->set_column_order(@columns);