# -- # 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::ServicePreferences::Generic; use strict; use warnings; use Kernel::Language qw(Translatable); our @ObjectDependencies = ( 'Kernel::System::Web::Request', 'Kernel::System::Service', ); sub new { my ( $Type, %Param ) = @_; # allocate new hash for object my $Self = {}; bless( $Self, $Type ); # get env for ( sort keys %Param ) { $Self->{$_} = $Param{$_}; } return $Self; } sub Param { my ( $Self, %Param ) = @_; my @Params = (); my $GetParam = $Kernel::OM->Get('Kernel::System::Web::Request')->GetParam( Param => $Self->{ConfigItem}->{PrefKey} ); if ( !defined($GetParam) ) { $GetParam = defined( $Param{ServiceData}->{ $Self->{ConfigItem}->{PrefKey} } ) ? $Param{ServiceData}->{ $Self->{ConfigItem}->{PrefKey} } : $Self->{ConfigItem}->{DataSelected}; } push( @Params, { %Param, Name => $Self->{ConfigItem}->{PrefKey}, SelectedID => $GetParam, }, ); return @Params; } sub Run { my ( $Self, %Param ) = @_; for my $Key ( sort keys %{ $Param{GetParam} } ) { my @Array = @{ $Param{GetParam}->{$Key} }; for (@Array) { # pref update db $Kernel::OM->Get('Kernel::System::Service')->ServicePreferencesSet( ServiceID => $Param{ServiceData}->{ServiceID}, Key => $Key, Value => $_, ); } } $Self->{Message} = Translatable('Preferences updated successfully!'); return 1; } sub Error { my ( $Self, %Param ) = @_; return $Self->{Error} || ''; } sub Message { my ( $Self, %Param ) = @_; return $Self->{Message} || ''; } 1;