+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/Kernel/Output/HTML/Standard/QueueServiceChange.dtl b/Kernel/Output/HTML/Standard/QueueServiceChange.dtl
new file mode 100644
index 0000000..a4fe277
--- /dev/null
+++ b/Kernel/Output/HTML/Standard/QueueServiceChange.dtl
@@ -0,0 +1,95 @@
+
+
$Text{"Services and queues"}
+
+
+
+
+
+
+
+
+
diff --git a/Kernel/System/QueueService.pm b/Kernel/System/QueueService.pm
new file mode 100644
index 0000000..631ac30
--- /dev/null
+++ b/Kernel/System/QueueService.pm
@@ -0,0 +1,187 @@
+# --
+# Kernel/System/QueueService.pm - core module
+# Managers Queue Services
+#
+# 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;
+
+use strict;
+use warnings;
+use Data::Dumper;
+
+sub new {
+ my ( $Type, %Param ) = @_;
+
+ # allocate new hash for object
+ my $Self = {%Param};
+ bless( $Self, $Type );
+
+ return $Self;
+}
+
+=item GetServiceList()
+
+Get list of services for a queue
+
+ my %{service_id}{QueueName} = $QueueServiceObject->GetServiceList(
+ QueueID => 123,
+ );
+
+=cut
+sub GetServiceList {
+ my ( $Self, %Param ) = @_;
+ my %result = ();
+
+ for (qw(QueueID)) {
+ if ( !$Param{$_} ) {
+ $Self->{LayoutObject}->FatalError( Message => Dumper( \%Param ) . "got no $_!" );
+ }
+ }
+
+ $Self->{DBObject}->Prepare(
+ SQL => "
+ select
+ a.service_id id,
+ b.name Name
+ from
+ queue_service a
+ inner join service b on(b.id = a.service_id)
+ where
+ a.queue_id = ?",
+ Bind => [ \$Param{QueueID} ]
+ );
+
+ while ( my @row = $Self->{DBObject}->FetchrowArray() ) {
+ $result{ $row[0] } = $row[1];
+ }
+
+ return %result;
+}
+
+=item GetQueueList()
+
+Get list of queues for a service
+
+ my %{queue_id}{QueueName} = $QueueServiceObject->GetQueueList(
+ ServiceID => 123,
+ );
+
+=cut
+sub GetQueueList {
+ my ( $Self, %Param ) = @_;
+ my %result = ();
+
+ for (qw(ServiceID)) {
+ if ( !$Param{$_} ) {
+ $Self->{LayoutObject}->FatalError( Message => Dumper( \%Param ) . "got no $_!" );
+ }
+ }
+
+ $Self->{DBObject}->Prepare(
+ SQL => "
+ select
+ a.queue_id id,
+ b.name Name
+ from
+ queue_service a
+ inner join queue b on(b.id = a.queue_id)
+ where
+ a.service_id = ?",
+ Bind => [ \$Param{ServiceID} ]
+ );
+
+ while ( my @row = $Self->{DBObject}->FetchrowArray() ) {
+ $result{ $row[0] } = $row[1];
+ }
+
+ return %result;
+}
+
+
+=item SetQueueServices()
+
+Defines the list of services for a queue
+
+ $QueueServiceObject->SetQueueServices(
+ QueueID => 123,
+ Services => @ServiceIDs
+ );
+
+=cut
+sub SetQueueServices {
+ my ( $Self, %Param ) = @_;
+ my %result = ();
+
+ for (qw(QueueID Services)) {
+ if ( !$Param{$_} ) {
+ $Self->{LayoutObject}->FatalError( Message => Dumper( \%Param ) . "got no $_!" );
+ }
+ }
+
+ my $QueueID = $Param{"QueueID"};
+ my @Services = @{$Param{"Services"}};
+
+ $Self->{DBObject}->Do(
+ SQL => "delete from queue_service where queue_id = ?",
+ Bind => [ \$Param{QueueID} ]
+ );
+
+ for my $service (@Services) {
+ $Self->{DBObject}->Do(
+ SQL => "insert into queue_service(queue_id,service_id) values (?,?)",
+ Bind => [\$Param{QueueID}, \$service]
+ );
+
+ }
+}
+
+=item SetServiceQueues()
+
+Defines the list of services for a queue
+
+ $QueueServiceObject->SetServiceQueues(
+ ServiceID => 123,
+ Queues => @ServiceIDs
+ );
+
+=cut
+sub SetServiceQueues {
+ my ( $Self, %Param ) = @_;
+ my %result = ();
+
+ for (qw(ServiceID Queues)) {
+ if ( !$Param{$_} ) {
+ $Self->{LayoutObject}->FatalError( Message => Dumper( \%Param ) . "got no $_!" );
+ }
+ }
+
+ my $ServiceID = $Param{"ServiceID"};
+ my @Queues = @{$Param{"Queues"}};
+
+ $Self->{DBObject}->Do(
+ SQL => "delete from queue_service where service_id = ?",
+ Bind => [ \$Param{ServiceID} ]
+ );
+
+ for my $queue (@Queues) {
+ $Self->{DBObject}->Do(
+ SQL => "insert into queue_service(queue_id,service_id) values (?,?)",
+ Bind => [\$queue, \$Param{ServiceID}]
+ );
+
+ }
+}
+
+
+1;
diff --git a/QueueService.sopm b/QueueService.sopm
new file mode 100755
index 0000000..c456f26
--- /dev/null
+++ b/QueueService.sopm
@@ -0,0 +1,40 @@
+
+
+ QueueService
+ 1.0.0
+ 3.x.x
+ 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!
+ ?
+ ?
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
--
libgit2 0.21.2