init III

Perl OTRS/Kernel/Output/HTML/NavBar/CustomerCompany.pm

@@ -0,0 +1,50 @@
+# --
+# Copyright (C) 2001-2019 OTRS AG, https://otrs.com/
+# --
+# This software comes with ABSOLUTELY NO WARRANTY. For details, see
+# the enclosed file COPYING for license information (GPL). If you
+# did not receive this file, see https://www.gnu.org/licenses/gpl-3.0.txt.
+# --
+
+package Kernel::Output::HTML::NavBar::CustomerCompany;
+
+use parent 'Kernel::Output::HTML::Base';
+
+use strict;
+use warnings;
+
+our @ObjectDependencies = (
+    'Kernel::Config',
+);
+
+sub Run {
+    my ( $Self, %Param ) = @_;
+
+    # get config object
+    my $ConfigObject = $Kernel::OM->Get('Kernel::Config');
+
+    # check if frontend module is registared
+    my $Config = $ConfigObject->Get('Frontend::Module')->{AdminCustomerCompany};
+    return if !$Config;
+
+    # check if customer company support feature is active
+    SOURCE:
+    for my $Item ( '', 1 .. 10 ) {
+        my $CustomerMap = $ConfigObject->Get( 'CustomerUser' . $Item );
+        next SOURCE if !$CustomerMap;
+
+        # return if CustomerCompany feature is used
+        return if $CustomerMap->{CustomerCompanySupport};
+    }
+
+    # frontend module is enabled but not customer company support feature, then remove the menu entry
+    my $NavBarName = $Config->{NavBarName};
+    my %Return     = %{ $Param{NavBar}->{Sub} };
+
+    # remove CustomerCompany from the CustomerMenu
+    delete $Return{$NavBarName}->{ItemArea0009100};
+
+    return ( Sub => \%Return );
+}
+
+1;