From 31a77bea4e5b2baf6158479ccd61a99b7fc4adfe Mon Sep 17 00:00:00 2001 From: Rodrigo Goncalves Date: Tue, 6 Jan 2015 19:02:57 -0200 Subject: [PATCH] Ajustes para OTRS 4.0.3 --- Kernel/Config/Files/QueueService.xml | 13 ++++++++----- Kernel/Language/pt_BR_QueueService.pm | 12 ++++++++---- Kernel/Modules/QueueService.pm | 121 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++------------------------------------------------------------- Kernel/Output/HTML/Standard/QueueService.dtl | 87 --------------------------------------------------------------------------------------- Kernel/Output/HTML/Standard/QueueService.tt | 86 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Kernel/Output/HTML/Standard/QueueServiceChange.dtl | 95 ----------------------------------------------------------------------------------------------- Kernel/Output/HTML/Standard/QueueServiceChange.tt | 103 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Kernel/System/QueueService.pm | 41 +++++++++++++++++++++-------------------- QueueService.sopm | 31 +++++++++++++++++-------------- 9 files changed, 303 insertions(+), 286 deletions(-) delete mode 100644 Kernel/Output/HTML/Standard/QueueService.dtl create mode 100644 Kernel/Output/HTML/Standard/QueueService.tt delete mode 100644 Kernel/Output/HTML/Standard/QueueServiceChange.dtl create mode 100644 Kernel/Output/HTML/Standard/QueueServiceChange.tt diff --git a/Kernel/Config/Files/QueueService.xml b/Kernel/Config/Files/QueueService.xml index b5a2b15..81b334f 100644 --- a/Kernel/Config/Files/QueueService.xml +++ b/Kernel/Config/Files/QueueService.xml @@ -1,20 +1,23 @@ - - Frontend module registration for the service per queue + Frontend module registration for the service per queue + Registro do módulo de serviços por fila Ticket Frontend::Admin::ModuleRegistration admin Admin - Services per queue + Services per queue + Serviços por fila Admin Kernel::Output::HTML::NavBarModuleAdmin - Service per queue - Create and manage services per queue + Services per queue + Serviços por fila + Create and manages services per queue + Cria e gerencia serviços por fila Ticket 900 diff --git a/Kernel/Language/pt_BR_QueueService.pm b/Kernel/Language/pt_BR_QueueService.pm index 434c565..871b7fe 100644 --- a/Kernel/Language/pt_BR_QueueService.pm +++ b/Kernel/Language/pt_BR_QueueService.pm @@ -1,8 +1,9 @@ # -- -# Kernel/Modules/pt_BR_NewTicketWizard.pm - frontend module for creating custom new ticket interfaces -# Translations +# Kernel/Modules/pt_BR_QueueService.pm - module to associate services per queue +# +# Copyright (C) 2014 - SeTIC - UFSC - http://setic.ufsc.br/ +# Version 01/06/2015 - Adjusts for OTRS 4 # -# Copyright (C) 2014 (Rodrigo Goncalves) (rodrigo.g@ufsc.br) # -- # This software comes with ABSOLUTELY NO WARRANTY. For details, see # the enclosed file COPYING for license information (AGPL). If you @@ -12,11 +13,14 @@ package Kernel::Language::pt_BR_QueueService; use strict; use warnings; +use utf8; sub Data { my $Self = shift; - $Self->{Translation}->{'Services per queue'} = 'Serviços por fila'; + $Self->{Translation}->{'Create and manages services per queue'} = 'Cria e gerencia serviços por fila'; + return 1; } + 1; \ No newline at end of file diff --git a/Kernel/Modules/QueueService.pm b/Kernel/Modules/QueueService.pm index 9bb83a1..37a9a0c 100644 --- a/Kernel/Modules/QueueService.pm +++ b/Kernel/Modules/QueueService.pm @@ -1,14 +1,10 @@ # -- # Kernel/Modules/QueueService.pm - frontend module -# Copyright (C) (2014) (Rodrigo Gonçalves) (rodrigo.g@ufsc.br) -# -- -# $Id: writing-otrs-application.xml,v 1.1 2010/08/13 08:59:28 mg Exp $ -# -- -# 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. -# -- -# Autor: Carlos Rebelato +# +# Copyright (C) 2014 - SeTIC - UFSC - http://setic.ufsc.br/ +# Version 01/06/2015 - Adjusts for OTRS 4 +# +# Autor: Carlos Rebelato, Rodrigo Gonçalves # Data.: 19/02/2014 - Versão inicial # package Kernel::Modules::QueueService; @@ -20,6 +16,20 @@ require Kernel::System::QueueService; require Kernel::System::Service; require Kernel::System::Queue; +our @ObjectDependencies = ( + "Kernel::System::Web::Request", # Old ParamObject + "Kernel::System::DB", + "Kernel::System::Ticket", + "Kernel::Output::HTML::Layout", # Old LayoutObject + "Kernel::System::Log", + "Kernel::System::Queue", + "Kernel::Config", + "Kernel::System::Encode", + "Kernel::System::Main", + "Kernel::System::QueueService", # Ask direct to manager + "Kernel::System::Service" # Ask direct to manager +); + sub new { my ( $Type, %Param ) = @_; @@ -27,33 +37,21 @@ sub new { my $Self = {%Param}; bless( $Self, $Type ); - # check needed objects - for ( - qw(ParamObject DBObject TicketObject LayoutObject LogObject QueueObject ConfigObject EncodeObject MainObject) - ) - { - if ( !$Self->{$_} ) { - $Self->{LayoutObject}->FatalError( Message => "Got no $_!" ); - } - } - - # create needed objects - $Self->{QueueServiceObject} = Kernel::System::QueueService->new(%Param); - $Self->{ServiceObject} = Kernel::System::Service->new(%Param); - return $Self; } sub Run { my ( $Self, %Param ) = @_; - my $SubAction = $Self->{ParamObject}->GetParam( Param => "Subaction" ); + my $ParamObject = $Kernel::OM->Get("Kernel::System::Web::Request"); + + my $SubAction = $ParamObject->GetParam( Param => "Subaction" ); if ( $SubAction eq "ServiceEdit" ) { - return $Self->ShowChangeService( ID => $Self->{ParamObject}->GetParam( Param => "ID" ) ); + return $Self->ShowChangeService( ID => $ParamObject->GetParam( Param => "ID" ) ); } elsif ( $SubAction eq "QueueEdit" ) { - return $Self->ShowChangeQueue( ID => $Self->{ParamObject}->GetParam( Param => "ID" ) ); + return $Self->ShowChangeQueue( ID => $ParamObject->GetParam( Param => "ID" ) ); } elsif ( $SubAction eq "ChangeService" ) { $Self->ChangeService(); @@ -72,11 +70,12 @@ sub ShowOverview() { my ( $Self, %Param ) = @_; my %Data = (); - my %Queues = $Self->{QueueObject}->QueueList( Valid => 1 ); - my %Services = $Self->{ServiceObject}->ServiceList( UserID => 1 ); + my %Queues = $Kernel::OM->Get("Kernel::System::Queue")->QueueList( Valid => 1 ); + my %Services = $Kernel::OM->Get("Kernel::System::Service")->ServiceList( UserID => 1 ); + my $LayoutObject = $Kernel::OM->Get("Kernel::Output::HTML::Layout"); foreach my $service ( sort { uc( $Services{$a} ) cmp uc( $Services{$b} ) } keys %Services ) { - $Self->{LayoutObject}->Block( + $LayoutObject->Block( Name => 'ListService', Data => { ServiceID => $service, @@ -86,7 +85,7 @@ sub ShowOverview() { } foreach my $queue ( sort { uc( $Queues{$a} ) cmp uc( $Queues{$b} ) } keys %Queues ) { - $Self->{LayoutObject}->Block( + $LayoutObject->Block( Name => 'ListQueue', Data => { QueueID => $queue, @@ -95,24 +94,24 @@ sub ShowOverview() { ); } - my $Output = - $Self->{LayoutObject}->Header( Title => $Self->{LayoutObject}->{LanguageObject}->Get("Services per queue") ); - $Output .= $Self->{LayoutObject}->NavigationBar(); - $Output .= $Self->{LayoutObject}->Output( + my $Output = $LayoutObject->Header( Title => $LayoutObject->{LanguageObject}->Get("Services per queue") ); + $Output .= $LayoutObject->NavigationBar(); + $Output .= $LayoutObject->Output( Data => \%Data, TemplateFile => 'QueueService' ); - $Output .= $Self->{LayoutObject}->Footer(); + $Output .= $LayoutObject->Footer(); return $Output; } sub ShowChangeService() { my ( $Self, %Param ) = @_; my %Data = (); - my %Service = $Self->{ServiceObject}->ServiceGet( ServiceID => $Param{ID}, UserID => 1 ); - my %QueuesService = $Self->{QueueServiceObject}->GetQueueList( ServiceID => $Param{ID} ); - my %Queues = $Self->{QueueObject}->QueueList( Valid => 1 ); + my %Service = $Kernel::OM->Get("Kernel::System::Service")->ServiceGet( ServiceID => $Param{ID}, UserID => 1 ); + my %QueuesService = $Kernel::OM->Get("Kernel::System::QueueService")->GetQueueList( ServiceID => $Param{ID} ); + my %Queues = $Kernel::OM->Get("Kernel::System::Queue")->QueueList( Valid => 1 ); + my $LayoutObject = $Kernel::OM->Get("Kernel::Output::HTML::Layout"); $Data{Type} = "Queue"; $Data{Filter} = "Service"; @@ -120,13 +119,13 @@ sub ShowChangeService() { $Data{Name} = $Service{Name}; $Data{ID} = $Service{ServiceID}; - $Self->{LayoutObject}->Block( + $LayoutObject->Block( Name => 'ChangeHeader', Data => \%Data ); foreach my $queue ( sort { uc( $Queues{$a} ) cmp uc( $Queues{$b} ) } keys %Queues ) { - $Self->{LayoutObject}->Block( + $LayoutObject->Block( Name => 'ChangeRow', Data => { Type => "Queue", @@ -138,23 +137,24 @@ sub ShowChangeService() { } my $Output = - $Self->{LayoutObject}->Header( Title => $Self->{LayoutObject}->{LanguageObject}->Get("Services per queue") ); - $Output .= $Self->{LayoutObject}->NavigationBar(); - $Output .= $Self->{LayoutObject}->Output( + $LayoutObject->Header( Title => $LayoutObject->{LanguageObject}->Get("Services per queue") ); + $Output .= $LayoutObject->NavigationBar(); + $Output .= $LayoutObject->Output( Data => \%Data, TemplateFile => 'QueueServiceChange' ); - $Output .= $Self->{LayoutObject}->Footer(); + $Output .= $LayoutObject->Footer(); return $Output; } sub ShowChangeQueue() { my ( $Self, %Param ) = @_; - my %Data = (); - my %Queue = $Self->{QueueObject}->QueueGet( ID => $Param{ID} ); - my %ServicesQueue = $Self->{QueueServiceObject}->GetServiceList( QueueID => $Param{ID} ); - my %Services = $Self->{ServiceObject}->ServiceList( UserID => 1 ); + my %Data = (); + my %Queue = $Kernel::OM->Get("Kernel::System::Queue")->QueueGet( ID => $Param{ID} ); + my %ServicesQueue = $Kernel::OM->Get("Kernel::System::QueueService")->GetServiceList( QueueID => $Param{ID} ); + my %Services = $Kernel::OM->Get("Kernel::System::Service")->ServiceList( UserID => 1 ); + my $LayoutObject = $Kernel::OM->Get("Kernel::Output::HTML::Layout"); $Data{Type} = "Service"; $Data{Filter} = "Queue"; @@ -162,13 +162,13 @@ sub ShowChangeQueue() { $Data{Name} = $Queue{Name}; $Data{ID} = $Queue{QueueID}; - $Self->{LayoutObject}->Block( + $LayoutObject->Block( Name => 'ChangeHeader', Data => \%Data ); foreach my $service ( sort { uc( $Services{$a} ) cmp uc( $Services{$b} ) } keys %Services ) { - $Self->{LayoutObject}->Block( + $LayoutObject->Block( Name => 'ChangeRow', Data => { Type => "Service", @@ -180,30 +180,29 @@ sub ShowChangeQueue() { } my $Output = - $Self->{LayoutObject}->Header( Title => $Self->{LayoutObject}->{LanguageObject}->Get("Services per queue") ); - $Output .= $Self->{LayoutObject}->NavigationBar(); - $Output .= $Self->{LayoutObject}->Output( + $LayoutObject->Header( Title => $LayoutObject->{LanguageObject}->Get("Services per queue") ); + $Output .= $LayoutObject->NavigationBar(); + $Output .= $LayoutObject->Output( Data => \%Data, TemplateFile => 'QueueServiceChange' ); - $Output .= $Self->{LayoutObject}->Footer(); + $Output .= $LayoutObject->Footer(); return $Output; } sub ChangeService() { my ( $Self, %Param ) = @_; - my @queueIDs = $Self->{ParamObject}->GetArray( Param => 'Queue' ); - my $id = $Self->{ParamObject}->GetParam( Param => 'ID' ); - $Self->{QueueServiceObject}->SetServiceQueues(ServiceID => $id, Queues => \@queueIDs); + my @queueIDs = $Kernel::OM->Get("Kernel::System::Web::Request")->GetArray( Param => 'Queue' ); + my $id = $Kernel::OM->Get("Kernel::System::Web::Request")->GetParam( Param => 'ID' ); + $Kernel::OM->Get("Kernel::System::QueueService")->SetServiceQueues(ServiceID => $id, Queues => \@queueIDs); } - sub ChangeQueue() { my ( $Self, %Param ) = @_; - my @serviceIDs = $Self->{ParamObject}->GetArray( Param => 'Service' ); - my $id = $Self->{ParamObject}->GetParam( Param => 'ID' ); - $Self->{QueueServiceObject}->SetQueueServices(QueueID => $id, Services => \@serviceIDs); + my @serviceIDs = $Kernel::OM->Get("Kernel::System::Web::Request")->GetArray( Param => 'Service' ); + my $id = $Kernel::OM->Get("Kernel::System::Web::Request")->GetParam( Param => 'ID' ); + $Kernel::OM->Get("Kernel::System::QueueService")->SetQueueServices(QueueID => $id, Services => \@serviceIDs); } \ No newline at end of file diff --git a/Kernel/Output/HTML/Standard/QueueService.dtl b/Kernel/Output/HTML/Standard/QueueService.dtl deleted file mode 100644 index 147ae8e..0000000 --- a/Kernel/Output/HTML/Standard/QueueService.dtl +++ /dev/null @@ -1,87 +0,0 @@ -# -- -# Kernel/Output/HTML/Standard/QueueService.dtl - overview -# Copyright (C) (2014) (Rodrigo Gonçalves) (rodrigo.g@ufsc.br) -# -- -# $Id: writing-otrs-application.xml,v 1.1 2010/08/13 08:59:28 mg Exp $ -# -- -# 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. -# -- -
-

$Text{"Services per queue"}

- -
- -
-
-

$Text{"Actions"}

-
-
- -
-
- - -
-
-

-
-
- -
-
- - -
-
-

-
-
- -
-
- -
- -
-
- -
-

$Text{"Overview"}

-
-
-
- -
-
- -
-
-
- - - - - - - \ No newline at end of file diff --git a/Kernel/Output/HTML/Standard/QueueService.tt b/Kernel/Output/HTML/Standard/QueueService.tt new file mode 100644 index 0000000..17cae1c --- /dev/null +++ b/Kernel/Output/HTML/Standard/QueueService.tt @@ -0,0 +1,86 @@ +# -- +# Kernel/Output/HTML/Standard/QueueService.tt - overview +# Copyright (C) (2014) SeTIC - UFSC - http://setic.ufsc.br/ +# Version 06/01/2015 - Adjusts for OTRS 4 +# +# 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. +# -- +
+

[% Translate("Services per queue") | html %]

+ +
+ +
+
+

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

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

+
+
+ +
+
+[% RenderBlockEnd("serviceFilter") %] +[% RenderBlockStart("queueFilter") %] +
+
+

+
+
+ +
+
+[% RenderBlockEnd("queueFilter") %] +
+ +
+
+ +
+

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

+
+
+
+
    +
  • [% Translate("Services") | html %]
    • + +[% RenderBlockStart("ListService") %] +
  • [% Data.ServiceName | html %]
    • +[% RenderBlockEnd("ListService") %] +
+
+
+
    +
  • [% Translate("Queues") | html %]
    • + +[% RenderBlockStart("ListQueue") %] +
  • [% Data.QueueName | html %]
    • +[% RenderBlockEnd("ListQueue") %] +
+
+
+
+ + +[% WRAPPER JSOnDocumentComplete %] + +[% END %] + + \ No newline at end of file diff --git a/Kernel/Output/HTML/Standard/QueueServiceChange.dtl b/Kernel/Output/HTML/Standard/QueueServiceChange.dtl deleted file mode 100644 index a4fe277..0000000 --- a/Kernel/Output/HTML/Standard/QueueServiceChange.dtl +++ /dev/null @@ -1,95 +0,0 @@ -
-

$Text{"Services and queues"}

-
-
-
-

$Text{"Actions"}

-
-
- -
-
-
-
-

- -

-
-
- -
-
-
- -
-
-
-

- - $Text{"Select queues for the service"} - - - $Text{"Select services for the queue"} - - $QData{"Name"} -

-
-
-
- - - - - - - - - - - - - - - - - - - - - - - -
$Text{"$Data{"VisibleNeType"}"} - - $Text{"Active"} -
$QData{"Name"} - -
-
- - $Text{"or"} - $Text{"Cancel"} -
-
-
-
-
-
-
-
- - - - diff --git a/Kernel/Output/HTML/Standard/QueueServiceChange.tt b/Kernel/Output/HTML/Standard/QueueServiceChange.tt new file mode 100644 index 0000000..5bb48de --- /dev/null +++ b/Kernel/Output/HTML/Standard/QueueServiceChange.tt @@ -0,0 +1,103 @@ +# -- +# Kernel/Output/HTML/Standard/QueueServiceChange.tt - edit +# Copyright (C) (2014) SeTIC - UFSC - http://setic.ufsc.br/ +# Version 06/01/2015 - Adjusts for OTRS 4 +# +# 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. +# -- +
+

[% Translate("Services and queues") | html %]

+
+
+
+

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

+
+
+ +
+
+
+
+

+ +

+
+
+ +
+
+
+ +
+
+
+

+[% RenderBlockStart("ChangeHeaderService") %] + [% Translate("Select queues for the service") | html %] +[% RenderBlockEnd("ChangeHeaderService") %] +[% RenderBlockStart("ChangeHeaderQueue") %] + [% Translate("Select services for the queue") | html %] +[% RenderBlockEnd("ChangeHeaderQueue") %] + [% Data.Name | html %] +

+
+
+
+ + + + + + + +[% RenderBlockStart("ChangeHeader") %] + +[% WRAPPER JSOnDocumentComplete %] + +[% END %] +[% RenderBlockEnd("ChangeHeader") %] + + + +[% RenderBlockStart("ChangeRow") %] + + + + +[% RenderBlockEnd("ChangeRow") %] + +
[% Translate(Data.VisibleNeType) | html %] + + [% Translate("Active") | html %] +
[% Data.Name | html %] + +
+
+ + [% Translate("or") | html %] + [% Translate("Cancel") | html %] +
+
+
+
+
+
+
+
+ +[% WRAPPER JSOnDocumentComplete %] + +[% END %] diff --git a/Kernel/System/QueueService.pm b/Kernel/System/QueueService.pm index 631ac30..de1f04c 100644 --- a/Kernel/System/QueueService.pm +++ b/Kernel/System/QueueService.pm @@ -1,18 +1,14 @@ # -- # Kernel/System/QueueService.pm - core module -# Managers Queue Services +# Manages Queue Services +# +# Copyright (C) (2014) - SeTIC - UFSC - http://setic.ufsc.br/ +# Version 06/01/2015 - Adjusts for OTRS 4 # -# Copyright (C) (2014) (Carlos Rebelato, Rodrigo Gonçalves) (rodrigo.g@ufsc.br) -# -- -# $Id: writing-otrs-application.xml,v 1.1 2010/08/13 08:59:28 mg Exp $ -# -- # 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. # -- -# Author: Carlos Rebelato -# Date..: 19/02/2014 - Versão inicial -# Revision: 27/02/2014 - Module creation # package Kernel::System::QueueService; @@ -20,6 +16,11 @@ use strict; use warnings; use Data::Dumper; +our @ObjectDependencies = ( + "Kernel::Output::HTML::Layout", # Old LayoutObject + "Kernel::System::DB" +); + sub new { my ( $Type, %Param ) = @_; @@ -45,11 +46,11 @@ sub GetServiceList { for (qw(QueueID)) { if ( !$Param{$_} ) { - $Self->{LayoutObject}->FatalError( Message => Dumper( \%Param ) . "got no $_!" ); + $Kernel::OM->Get("Kernel::Output::HTML::Layout")->FatalError( Message => Dumper( \%Param ) . "got no $_!" ); } } - $Self->{DBObject}->Prepare( + $Kernel::OM->Get("Kernel::System::DB")->Prepare( SQL => " select a.service_id id, @@ -62,7 +63,7 @@ sub GetServiceList { Bind => [ \$Param{QueueID} ] ); - while ( my @row = $Self->{DBObject}->FetchrowArray() ) { + while ( my @row = $Kernel::OM->Get("Kernel::System::DB")->FetchrowArray() ) { $result{ $row[0] } = $row[1]; } @@ -84,11 +85,11 @@ sub GetQueueList { for (qw(ServiceID)) { if ( !$Param{$_} ) { - $Self->{LayoutObject}->FatalError( Message => Dumper( \%Param ) . "got no $_!" ); + $Kernel::OM->Get("Kernel::Output::HTML::Layout")->FatalError( Message => Dumper( \%Param ) . "got no $_!" ); } } - $Self->{DBObject}->Prepare( + $Kernel::OM->Get("Kernel::System::DB")->Prepare( SQL => " select a.queue_id id, @@ -101,7 +102,7 @@ sub GetQueueList { Bind => [ \$Param{ServiceID} ] ); - while ( my @row = $Self->{DBObject}->FetchrowArray() ) { + while ( my @row = $Kernel::OM->Get("Kernel::System::DB")->FetchrowArray() ) { $result{ $row[0] } = $row[1]; } @@ -125,20 +126,20 @@ sub SetQueueServices { for (qw(QueueID Services)) { if ( !$Param{$_} ) { - $Self->{LayoutObject}->FatalError( Message => Dumper( \%Param ) . "got no $_!" ); + $Kernel::OM->Get("Kernel::Output::HTML::Layout")->FatalError( Message => Dumper( \%Param ) . "got no $_!" ); } } my $QueueID = $Param{"QueueID"}; my @Services = @{$Param{"Services"}}; - $Self->{DBObject}->Do( + $Kernel::OM->Get("Kernel::System::DB")->Do( SQL => "delete from queue_service where queue_id = ?", Bind => [ \$Param{QueueID} ] ); for my $service (@Services) { - $Self->{DBObject}->Do( + $Kernel::OM->Get("Kernel::System::DB")->Do( SQL => "insert into queue_service(queue_id,service_id) values (?,?)", Bind => [\$Param{QueueID}, \$service] ); @@ -162,20 +163,20 @@ sub SetServiceQueues { for (qw(ServiceID Queues)) { if ( !$Param{$_} ) { - $Self->{LayoutObject}->FatalError( Message => Dumper( \%Param ) . "got no $_!" ); + $Kernel::OM->Get("Kernel::Output::HTML::Layout")->FatalError( Message => Dumper( \%Param ) . "got no $_!" ); } } my $ServiceID = $Param{"ServiceID"}; my @Queues = @{$Param{"Queues"}}; - $Self->{DBObject}->Do( + $Kernel::OM->Get("Kernel::System::DB")->Do( SQL => "delete from queue_service where service_id = ?", Bind => [ \$Param{ServiceID} ] ); for my $queue (@Queues) { - $Self->{DBObject}->Do( + $Kernel::OM->Get("Kernel::System::DB")->Do( SQL => "insert into queue_service(queue_id,service_id) values (?,?)", Bind => [\$queue, \$Param{ServiceID}] ); diff --git a/QueueService.sopm b/QueueService.sopm index c456f26..37848b5 100755 --- a/QueueService.sopm +++ b/QueueService.sopm @@ -1,27 +1,30 @@ QueueService - 1.0.0 - 3.x.x + 1.1.0 + 4.0.3 SeTIC - http://www.setic.ufsc.br - Free - Associação de serviços a filas - - Versão 1.0.0 - Inicial - - - Módulo instalado com sucesso! - New Ticket Wizard - Queue services module installed successfully! + http://setic.ufsc.br + GPLv2 + + First Version + Support for OTRS 4 + + Services per queue association + ? ? + +
+ ]]> + - - + + -- libgit2 0.21.2