From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Fri, 31 Aug 2012 16:06:33 +0000 (+0200)
Subject: SL::Controller::Base::_controller_name für Kontrollernamen mit :: im lokalen Part
X-Git-Tag: release-3.0.0beta1~251^2~10
X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=c4eb3b162e711e5ceda601a0f12b0277f99139b2;p=kivitendo-erp.git

SL::Controller::Base::_controller_name für Kontrollernamen mit :: im lokalen Part
---

diff --git a/SL/Controller/Base.pm b/SL/Controller/Base.pm
index 4dace86ed..1188ffe8b 100644
--- a/SL/Controller/Base.pm
+++ b/SL/Controller/Base.pm
@@ -204,7 +204,9 @@ sub _run_action {
 }
 
 sub _controller_name {
-  return (split(/::/, ref($_[0]) || $_[0]))[-1];
+  my $class = ref($_[0]) || $_[0];
+  $class    =~ s/^SL::Controller:://;
+  return $class;
 }
 
 sub _dispatch {