X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/4b31e6ba4211c900648d92af80ae8d09041977ad..3424bf80214aede7a8318c39b754290738e4aea0:/SL/Controller/ClientConfig.pm

diff --git a/SL/Controller/ClientConfig.pm b/SL/Controller/ClientConfig.pm
index 97ff15a6d..e6e687806 100644
--- a/SL/Controller/ClientConfig.pm
+++ b/SL/Controller/ClientConfig.pm
@@ -19,6 +19,12 @@ sub action_edit {
   $self->{payments_changeable} = SL::DB::Default->get->payments_changeable;
   $self->{show_bestbefore}     = SL::DB::Default->get->show_bestbefore;
 
+  map { $self->{$_} = SL::DB::Default->get->$_ } qw(datev_check_on_sales_invoice datev_check_on_purchase_invoice datev_check_on_ar_transaction datev_check_on_ap_transaction datev_check_on_gl_transaction);
+  # datev check: not implemented yet:
+  #check_on_cash_and_receipt = 0
+  #check_on_dunning = 0
+  #check_on_sepa_import = 0
+
   $self->render('client_config/form', title => $::locale->text('Client Configuration'));
 }
 
@@ -29,6 +35,8 @@ sub action_save {
   SL::DB::Default->get->update_attributes('payments_changeable' => $::form->{payments_changeable});
   SL::DB::Default->get->update_attributes('show_bestbefore'     => $::form->{show_bestbefore});
 
+  map { SL::DB::Default->get->update_attributes($_ => $::form->{$_}); } qw(datev_check_on_sales_invoice datev_check_on_purchase_invoice datev_check_on_ar_transaction datev_check_on_ap_transaction datev_check_on_gl_transaction);
+
   flash_later('info', $::locale->text('Client Configuration saved!'));
 
   $self->redirect_to(action => 'edit');