diff options
Diffstat (limited to 'Kernel/Modules/AdminResponseChangeDefaultToTemplates.pm')
| -rw-r--r-- | Kernel/Modules/AdminResponseChangeDefaultToTemplates.pm | 361 |
1 files changed, 361 insertions, 0 deletions
diff --git a/Kernel/Modules/AdminResponseChangeDefaultToTemplates.pm b/Kernel/Modules/AdminResponseChangeDefaultToTemplates.pm new file mode 100644 index 0000000..02a0b36 --- /dev/null +++ b/Kernel/Modules/AdminResponseChangeDefaultToTemplates.pm @@ -0,0 +1,361 @@ +# -- +# Kernel/Modules/AdminResponseChangeDefaultToTemplates.pm - to manage ResponseChangeDefaultTo <-> templates assignments +# Copyright (C) 2015 Alexander Sulfrian <alex@spline.inf.fu-berlin.de> +# -- +# This software comes with ABSOLUTELY NO WARRANTY. For details, see +# the enclosed file COPYING for license information (AGPL). If you +# did not receive this file, see http://www.gnu.org/licenses/agpl.txt. +# -- + +package Kernel::Modules::AdminResponseChangeDefaultToTemplates; + +use strict; +use warnings; + +use Kernel::System::ResponseChangeDefaultTo; +use Kernel::System::StandardTemplate; + +sub new { + my ( $Type, %Param ) = @_; + + # allocate new hash for object + my $Self = {%Param}; + bless( $Self, $Type ); + + # check all needed objects + for (qw(ParamObject DBObject QueueObject LayoutObject ConfigObject LogObject)) { + if ( !$Self->{$_} ) { + $Self->{LayoutObject}->FatalError( Message => "Got no $_!" ); + } + } + + $Self->{ResponseChangeDefaultToObject} = + Kernel::System::ResponseChangeDefaultTo->new(%Param); + $Self->{StandardTemplateObject} = + Kernel::System::StandardTemplate->new(%Param); + + return $Self; +} + +sub Run { + my ( $Self, %Param ) = @_; + + # ------------------------------------------------------------ # + # template <-> ResponseChangeDefaultTo 1:n + # ------------------------------------------------------------ # + if ( $Self->{Subaction} eq 'Template' ) { + + # get template data + my $ID = $Self->{ParamObject}->GetParam( Param => 'ID' ); + my %StandardTemplateData = $Self->{StandardTemplateObject}->StandardTemplateGet( ID => $ID ); + my $StandardTemplateType = $Self->{LayoutObject}->{LanguageObject}->Translate( + $StandardTemplateData{TemplateType}, + ); + my $Name = $StandardTemplateType . ' - ' . $StandardTemplateData{Name}; + + # get ResponseChangeDefaultTo data + my %ResponseChangeDefaultToData = + $Self->{ResponseChangeDefaultToObject}->List(); + + my %Member = $Self->{ResponseChangeDefaultToObject}->MappingList( + ResponseID => $ID, + ); + + my $Output = $Self->{LayoutObject}->Header(); + $Output .= $Self->{LayoutObject}->NavigationBar(); + $Output .= $Self->_Change( + Data => \%ResponseChangeDefaultToData, + ID => $ID, + Name => $Name, + Mapping => \%Member, + Type => 'Template', + ); + $Output .= $Self->{LayoutObject}->Footer(); + return $Output; + } + + # ------------------------------------------------------------ # + # templates <-> ResponseChangeDefaultTo n:1 + # ------------------------------------------------------------ # + elsif ( $Self->{Subaction} eq 'ResponseChangeDefaultTo' ) { + + my $ID = $Self->{ParamObject}->GetParam( Param => 'ID' ); + my %ResponseChangeDefaultToData = + $Self->{ResponseChangeDefaultToObject}->Get( ID => $ID ); + + # get templates + my %StandardTemplateData = $Self->{StandardTemplateObject}->StandardTemplateList( + Valid => 1, + ); + + if (%StandardTemplateData) { + for my $StandardTemplateID ( sort keys %StandardTemplateData ) { + my %Data = $Self->{StandardTemplateObject}->StandardTemplateGet( + ID => $StandardTemplateID + ); + $StandardTemplateData{$StandardTemplateID} + = $Self->{LayoutObject}->{LanguageObject}->Translate( $Data{TemplateType} ) + . ' - ' + . $Data{Name}; + } + } + + # get assigned templates + my %Member = $Self->{ResponseChangeDefaultToObject}->MappingList( + ResponseChangeDefaultToID => $ID, + ); + + my $Output = $Self->{LayoutObject}->Header(); + $Output .= $Self->{LayoutObject}->NavigationBar(); + $Output .= $Self->_Change( + Data => \%StandardTemplateData, + ID => $ID, + Name => $ResponseChangeDefaultToData{Title}, + Mapping => \%Member, + Type => 'ResponseChangeDefaultTo', + ); + $Output .= $Self->{LayoutObject}->Footer(); + return $Output; + } + + # ------------------------------------------------------------ # + # add templates to ResponseChangeDefaultTo + # ------------------------------------------------------------ # + elsif ( $Self->{Subaction} eq 'ChangeResponseChangeDefaultTo' ) { + + # challenge token check for write action + $Self->{LayoutObject}->ChallengeTokenCheck(); + + # get current mapping + my $ID = $Self->{ParamObject}->GetParam( Param => 'ID' ); + my %Mapping = $Self->{ResponseChangeDefaultToObject}->MappingList( + ResponseChangeDefaultToID => $ID, + ); + + # get new templates + my @TemplatesSelected = $Self->{ParamObject}->GetArray( Param => 'ItemsSelected' ); + my @TemplatesAll = $Self->{ParamObject}->GetArray( Param => 'ItemsAll' ); + + # create hash with selected templates + my %TemplatesSelected = map { $_ => 1 } @TemplatesSelected; + + # check all used templates + for my $TemplateID (@TemplatesAll) { + if ( $TemplatesSelected{$TemplateID} ) { + if ( ! $Mapping{$TemplateID} ) { + $Self->{ResponseChangeDefaultToObject}->MappingAdd( + ResponseID => $TemplateID, + ResponseChangeDefaultToID => $ID, + ); + } + } + else { + if ( $Mapping{$TemplateID} ) { + $Self->{ResponseChangeDefaultToObject}->MappingDelete( + ID => $Mapping{$TemplateID}, + ); + } + } + } + + return $Self->{LayoutObject}->Redirect( OP => "Action=$Self->{Action}" ); + } + + # ------------------------------------------------------------ # + # add queues to template + # ------------------------------------------------------------ # + elsif ( $Self->{Subaction} eq 'ChangeTemplate' ) { + + # challenge token check for write action + $Self->{LayoutObject}->ChallengeTokenCheck(); + + # get current mapping + my $ID = $Self->{ParamObject}->GetParam( Param => 'ID' ); + my %Mapping = $Self->{ResponseChangeDefaultToObject}->MappingList( + ResponseID => $ID, + ); + + # get new queues + my @Selected = $Self->{ParamObject}->GetArray( Param => 'ItemsSelected' ); + my @All = $Self->{ParamObject}->GetArray( Param => 'ItemsAll' ); + + # create hash with selected queues + my %Selected = map { $_ => 1 } @Selected; + + # check all used queues + for my $DefaultToID (@All) { + if ( $Selected{$DefaultToID} ) { + if ( ! $Mapping{$DefaultToID} ) { + $Self->{ResponseChangeDefaultToObject}->MappingAdd( + ResponseID => $ID, + ResponseChangeDefaultToID => $DefaultToID, + ); + } + } + else { + if ( $Mapping{$DefaultToID} ) { + $Self->{ResponseChangeDefaultToObject}->MappingDelete( + ID => $Mapping{$DefaultToID}, + ); + } + } + } + + return $Self->{LayoutObject}->Redirect( OP => "Action=$Self->{Action}" ); + } + + # ------------------------------------------------------------ # + # overview + # ------------------------------------------------------------ # + my $Output = $Self->{LayoutObject}->Header(); + $Output .= $Self->{LayoutObject}->NavigationBar(); + $Output .= $Self->_Overview(); + $Output .= $Self->{LayoutObject}->Footer(); + return $Output; +} + +sub _Change { + my ( $Self, %Param ) = @_; + + my %Data = %{ $Param{Data} }; + my %Mapping = %{ $Param{Mapping} }; + my $Type = $Param{Type} || 'Template'; + my $NeType = 'ResponseChangeDefaultTo'; + $NeType = 'Template' if $Type eq 'ResponseChangeDefaultTo'; + + $Self->{LayoutObject}->Block( Name => 'Overview' ); + $Self->{LayoutObject}->Block( Name => 'ActionList' ); + $Self->{LayoutObject}->Block( Name => 'ActionOverview' ); + $Self->{LayoutObject}->Block( Name => 'Filter' ); + + $Self->{LayoutObject}->Block( + Name => 'Change', + Data => { + ID => $Param{ID}, + Name => $Param{Name}, + ActionHome => 'Admin' . $Type, + NeType => $NeType, + }, + ); + + $Self->{LayoutObject}->Block( Name => "ChangeHeader$NeType" ); + + for my $ID ( sort { uc( $Data{$a} ) cmp uc( $Data{$b} ) } keys %Data ) { + + # set output class + my $Selected = $Mapping{$ID} ? ' checked="checked"' : ''; + + $Self->{LayoutObject}->Block( + Name => 'ChangeRow', + Data => { + Type => $NeType, + ID => $ID, + Name => $Data{$ID}, + Selected => $Selected, + }, + ); + } + + return $Self->{LayoutObject}->Output( + TemplateFile => 'AdminResponseChangeDefaultToTemplates', + Data => \%Param, + ); +} + +sub _Overview { + my ( $Self, %Param ) = @_; + + $Self->{LayoutObject}->Block( + Name => 'Overview', + Data => {}, + ); + + # no actions in action list + # $Self->{LayoutObject}->Block(Name=>'ActionList'); + $Self->{LayoutObject}->Block( Name => 'FilterTemplate' ); + $Self->{LayoutObject}->Block( Name => 'FilterResponseChangeDefaultTo' ); + $Self->{LayoutObject}->Block( Name => 'OverviewResult' ); + + # get std template list + my %StandardTemplateData = $Self->{StandardTemplateObject}->StandardTemplateList( + Valid => 1, + ); + + # if there are results to show + if (%StandardTemplateData) { + for my $StandardTemplateID ( sort keys %StandardTemplateData ) { + my %Data = $Self->{StandardTemplateObject}->StandardTemplateGet( + ID => $StandardTemplateID, + ); + $StandardTemplateData{$StandardTemplateID} + = $Self->{LayoutObject}->{LanguageObject}->Translate( $Data{TemplateType} ) + . ' - ' + . $Data{Name}; + } + for my $StandardTemplateID ( + sort { uc( $StandardTemplateData{$a} ) cmp uc( $StandardTemplateData{$b} ) } + keys %StandardTemplateData + ) + { + + # set output class + $Self->{LayoutObject}->Block( + Name => 'List1n', + Data => { + Name => $StandardTemplateData{$StandardTemplateID}, + Subaction => 'Template', + ID => $StandardTemplateID, + }, + ); + } + } + + # otherwise it displays a no data found message + else { + $Self->{LayoutObject}->Block( + Name => 'NoTemplatesFoundMsg', + Data => {}, + ); + } + + # get queue data + my %ResponseChangeDefaultToData = + $Self->{ResponseChangeDefaultToObject}->List(); + + # if there are results to show + if (%ResponseChangeDefaultToData) { + for my $ID ( + sort { uc( $ResponseChangeDefaultToData{$a} ) cmp + uc( $ResponseChangeDefaultToData{$b} ) } + keys %ResponseChangeDefaultToData + ) + { + + # set output class + $Self->{LayoutObject}->Block( + Name => 'Listn1', + Data => { + Name => $ResponseChangeDefaultToData{$ID}, + Subaction => 'ResponseChangeDefaultTo', + ID => $ID, + }, + ); + } + } + + # otherwise it displays a no data found message + else { + $Self->{LayoutObject}->Block( + Name => 'NoResponseChangeDefaultToFoundMsg', + Data => {}, + ); + } + + # return output + return $Self->{LayoutObject}->Output( + TemplateFile => 'AdminResponseChangeDefaultToTemplates', + Data => \%Param, + ); +} + +1; |