X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Famcvar.pl;h=ea023b2fe8de111cf87cf3e6ee4417880b1d82a0;hb=b81f2b8fd88c28f96f49fbe50e94276384d0d511;hp=c0a0e88cc90eab1e4b73e701e8578d1da1d1bd56;hpb=8084ef359515031ec8429b49baf0ab09858f55d2;p=kivitendo-erp.git

diff --git a/bin/mozilla/amcvar.pl b/bin/mozilla/amcvar.pl
index c0a0e88cc..ea023b2fe 100644
--- a/bin/mozilla/amcvar.pl
+++ b/bin/mozilla/amcvar.pl
@@ -211,11 +211,27 @@ sub display_cvar_config_form {
   $main::lxdebug->leave_sub();
 }
 
+sub update {
+  $main::lxdebug->enter_sub();
+
+  my $form     = $main::form;
+
+  $main::auth->assert('config');
+
+  $form->{included_by_default} = $form->{inclusion} eq 'yes_default_on';
+  $form->{includeable}         = $form->{inclusion} ne 'no';
+
+  display_cvar_config_form();
+
+  $main::lxdebug->leave_sub();
+}
+
+
 sub dispatcher {
   my $form     = $main::form;
   my $locale   = $main::locale;
 
-  foreach my $action (qw(list_cvar_configs add_cvar_config)) {
+  foreach my $action (qw(list_cvar_configs add_cvar_config update)) {
     if ($form->{"action_${action}"}) {
       call_sub($action);
       return;
@@ -226,3 +242,4 @@ sub dispatcher {
 }
 
 1;
+