From 95228db70acea35da946a8e9e50dd9a5fc423174 Mon Sep 17 00:00:00 2001 From: Alexander Sulfrian Date: Wed, 21 Jan 2015 02:31:04 +0100 Subject: Add admin interface for mapping Templates and ResponseChangeDefaultTo --- Kernel/Config/Files/ResponseChangeDefaultTo.xml | 20 ++ .../AdminResponseChangeDefaultToTemplates.pm | 361 +++++++++++++++++++++ .../AdminResponseChangeDefaultToTemplates.tt | 172 ++++++++++ ResponseChangeDefaultTo.sopm | 4 +- 4 files changed, 556 insertions(+), 1 deletion(-) create mode 100644 Kernel/Modules/AdminResponseChangeDefaultToTemplates.pm create mode 100644 Kernel/Output/HTML/Standard/AdminResponseChangeDefaultToTemplates.tt diff --git a/Kernel/Config/Files/ResponseChangeDefaultTo.xml b/Kernel/Config/Files/ResponseChangeDefaultTo.xml index 0018b85..0c19c0f 100644 --- a/Kernel/Config/Files/ResponseChangeDefaultTo.xml +++ b/Kernel/Config/Files/ResponseChangeDefaultTo.xml @@ -15,4 +15,24 @@ + + Frontend module registration for the agent interface. + Ticket + Frontend::Admin::ModuleRegistration + + + admin + Admin + Templates <-> ResponseChangeDefaultTo + Admin + + Kernel::Output::HTML::NavBarModuleAdmin + Templates <-> ResponseChangeDefaultTo + Link templates to ResponseChangeDefaultTo. + Queue + 300 + + + + 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 +# -- +# 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; diff --git a/Kernel/Output/HTML/Standard/AdminResponseChangeDefaultToTemplates.tt b/Kernel/Output/HTML/Standard/AdminResponseChangeDefaultToTemplates.tt new file mode 100644 index 0000000..090716f --- /dev/null +++ b/Kernel/Output/HTML/Standard/AdminResponseChangeDefaultToTemplates.tt @@ -0,0 +1,172 @@ +# -- +# AdminResponseChangeDefaultToTemplates.tt - provides HTML form for AdminInterface +# Copyright (C) 2015 Alexander Sulfrian +# -- +# 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. +# -- + +[% RenderBlockStart("Overview") %] +
+

[% Translate("Manage Template-ResponseChangeDefaultTo Relations") | html %]

+ +
+ +[% RenderBlockStart("ActionList") %] +
+
+

+
+
+ +
+
+[% RenderBlockEnd("ActionList") %] + +[% RenderBlockStart("Filter") %] +
+
+

+
+
+ +
+
+[% RenderBlockEnd("Filter") %] + +[% RenderBlockStart("FilterTemplate") %] +
+
+

+
+
+ +
+
+[% RenderBlockEnd("FilterTemplate") %] +[% RenderBlockStart("FilterResponseChangeDefaultTo") %] +
+
+

+
+
+ +
+
+[% RenderBlockEnd("FilterResponseChangeDefaultTo") %] + +
+ +
+
+ +[% RenderBlockStart("OverviewResult") %] +
+

[% Translate("Overview") | html %]

+
+
+
+
    +
  • [% Translate("Templates") | html %]
    • + +[% RenderBlockStart("NoTemplatesFoundMsg") %] +
  • [% Translate("No data found.") | html %]
    • +[% RenderBlockEnd("NoTemplatesFoundMsg") %] +[% RenderBlockStart("List1n") %] +
  • [% Data.Name | html %]
    • +[% RenderBlockEnd("List1n") %] +
+
+
+
    +
  • [% Translate("ResponseChangeDefaultTo") | html %]
    • + +[% RenderBlockStart("NoResponseChangeDefaultToFoundMsg") %] +
  • [% Translate("No data found.") | html %]
    • +[% RenderBlockEnd("NoResponseChangeDefaultToFoundMsg") %] +[% RenderBlockStart("Listn1") %] +
  • [% Data.Name | html %]
    • +[% RenderBlockEnd("Listn1") %] +
+
+
+
+ +[% WRAPPER JSOnDocumentComplete %] + +[% END %] +[% RenderBlockEnd("OverviewResult") %] +[% RenderBlockStart("Change") %] +
+

+[% RenderBlockStart("ChangeHeaderResponseChangeDefaultTo") %] + [% Translate("Change ResponseChangeDefaultTo Relations for Template") | html %] +[% RenderBlockEnd("ChangeHeaderResponseChangeDefaultTo") %] +[% RenderBlockStart("ChangeHeaderTemplate") %] + [% Translate("Change Template Relations for ResponseChangeDefaultTo") | html %] +[% RenderBlockEnd("ChangeHeaderTemplate") %] + [% Data.Name | html %] +

+
+
+
+ + + + + + + + + + + +[% RenderBlockStart("ChangeRow") %] + + + + +[% RenderBlockEnd("ChangeRow") %] + +
[% Translate(Data.NeType) | html %] + + [% Translate("Active") | html %] +
[% Data.Name | html %] + + + +
+
+ + [% Translate("or") | html %] + [% Translate("Cancel") | html %] +
+
+
+
+[% WRAPPER JSOnDocumentComplete %] + +[% END %] +[% RenderBlockEnd("Change") %] +
+
+
+ +
+[% RenderBlockEnd("Overview") %] diff --git a/ResponseChangeDefaultTo.sopm b/ResponseChangeDefaultTo.sopm index 0e18640..f0fd854 100644 --- a/ResponseChangeDefaultTo.sopm +++ b/ResponseChangeDefaultTo.sopm @@ -11,8 +11,10 @@ ? ? - + + + -- cgit v1.2.3-1-g7c22