X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FController%2FHelper%2FRequirementSpec.pm;h=3ba23fbec1532d297a5dfbb6f937136121e793a3;hb=d1f6e5010a26a1cb109700ca2b97cf75d551f10a;hp=b24c4aa80f68b0df33c58a1fb83dddc7e8fe9a70;hpb=c19b1e03fb03f195d86a5b78f8ce2338f745f599;p=kivitendo-erp.git

diff --git a/SL/Controller/Helper/RequirementSpec.pm b/SL/Controller/Helper/RequirementSpec.pm
index b24c4aa80..3ba23fbec 100644
--- a/SL/Controller/Helper/RequirementSpec.pm
+++ b/SL/Controller/Helper/RequirementSpec.pm
@@ -3,7 +3,7 @@ package SL::Controller::Helper::RequirementSpec;
 use strict;
 
 use Exporter qw(import);
-our @EXPORT = qw(init_visible_section);
+our @EXPORT = qw(init_visible_section set_function_blocks_tab_menu_class);
 
 use SL::DB::Manager::RequirementSpecItem;
 
@@ -22,4 +22,15 @@ sub init_visible_section {
   return $self->visible_section($self->visible_item->section);
 }
 
+sub set_function_blocks_tab_menu_class {
+  my $self          = shift;
+  my %params        = Params::Validate::validate(@_, { class => 1 });
+
+  my $id            = '#function-blocks-tab';
+  my @other_classes = grep { $_ ne $params{class} } qw(section-context-menu text-block-context-menu);
+
+  $self->js->removeClass($id, $_) for @other_classes;
+  $self->js->addClass($id, $params{class});
+}
+
 1;