1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
# --
# Copyright (C) 2001-2017 OTRS AG, http://otrs.com/
# --
# 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::AgentBook;
use strict;
use warnings;
use Kernel::System::CustomerUser;
sub new {
my ( $Type, %Param ) = @_;
# allocate new hash for object
my $Self = {%Param};
bless( $Self, $Type );
# check all needed objects
for (qw(TicketObject ParamObject DBObject QueueObject LayoutObject ConfigObject LogObject)) {
if ( !$Self->{$_} ) {
$Self->{LayoutObject}->FatalError( Message => "Got no $_!" );
}
}
# create additional objects
$Self->{CustomerUserObject} = Kernel::System::CustomerUser->new(%Param);
$Self->{JSONObject} = Kernel::System::JSON->new( %{$Self} );
return $Self;
}
sub Run {
my ( $Self, %Param ) = @_;
# get params
for (qw(ToCustomer CcCustomer BccCustomer CustomerData)) {
$Param{$_} = $Self->{ParamObject}->GetParam( Param => $_ );
}
# get list of users
my $Search = $Self->{ParamObject}->GetParam( Param => 'Search' );
my %CustomerUserList;
if ($Search) {
%CustomerUserList = $Self->{CustomerUserObject}->CustomerSearch(
Search => $Search,
);
}
my %List;
for ( sort keys %CustomerUserList ) {
my %CustomerUserData = $Self->{CustomerUserObject}->CustomerUserDataGet(
User => $_,
);
if ( $CustomerUserData{UserEmail} ) {
$List{ $CustomerUserData{UserEmail} } = {
Email => $CustomerUserList{$_},
CustomerKey => $_
};
}
}
# build customer search autocomplete field
$Self->{LayoutObject}->Block(
Name => 'CustomerSearchAutoComplete',
);
if (%List) {
$Self->{LayoutObject}->Block(
Name => 'SearchResult',
);
my $Count = 1;
for ( reverse sort { $List{$b}->{Email} cmp $List{$a}->{Email} } keys %List ) {
$Self->{LayoutObject}->Block(
Name => 'Row',
Data => {
Email => $List{$_}->{Email},
Count => $Count,
CustomerDataJSON =>
$Self->{JSONObject}->Encode( Data => { $List{$_}->{Email} => $List{$_}->{CustomerKey} } ),
},
);
$Count++;
}
}
# start with page ...
my $Output = $Self->{LayoutObject}->Header( Type => 'Small' );
$Output .= $Self->{LayoutObject}->Output(
TemplateFile => 'AgentBook',
Data => \%Param
);
$Output .= $Self->{LayoutObject}->Footer( Type => 'Small' );
return $Output;
}
1;
|
