Eine Klasse & globale Variable zur Verwaltung von mandantenbasierter Konfiguration

[mfinanz.git] / SL / Controller / Base.pm

diff --git a/SL/Controller/Base.pm b/SL/Controller/Base.pm
index d50d519b71733c31c2c10d5759b1d52ed953b673..392f441c24211bd63ebb9a320218df05319d27a3 100644 (file)
--- a/SL/Controller/Base.pm
+++ b/SL/Controller/Base.pm
@@ -68,6 +68,7 @@ sub render {
                  AUTH     => $::auth,
                  FLASH    => $::form->{FLASH},
                  FORM     => $::form,
+                 INSTANCE_CONF => $::instance_conf,
                  LOCALE   => $::locale,
                  LXCONFIG => \%::lx_office_conf,
                  LXDEBUG  => $::lxdebug,
@@ -174,9 +175,13 @@ sub _dispatch {
   my $action  = first { $::form->{"action_${_}"} } @actions;
   my $sub     = "action_${action}";
 
-  $self->_run_hooks('before', $action);
-  $self->$sub(@_);
-  $self->_run_hooks('after', $action);
+  if ($self->can($sub)) {
+    $self->_run_hooks('before', $action);
+    $self->$sub(@_);
+    $self->_run_hooks('after', $action);
+  } else {
+    $::form->error($::locale->text('Oops. No valid action found to dispatch. Please report this case to the Lx-Office team.'));
+  }
 }
 
 sub _template_obj {