/usr/share/otrs/Kernel/Modules/AgentBook.pm is in otrs2 5.0.7-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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-2016 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;
our $ObjectManagerDisabled = 1;
sub new {
my ( $Type, %Param ) = @_;
# allocate new hash for object
my $Self = {%Param};
bless( $Self, $Type );
return $Self;
}
sub Run {
my ( $Self, %Param ) = @_;
# get param object
my $ParamObject = $Kernel::OM->Get('Kernel::System::Web::Request');
# get params
for my $Recipient (qw(ToCustomer CcCustomer BccCustomer CustomerData)) {
$Param{$Recipient} = $ParamObject->GetParam( Param => $Recipient );
}
# get list of users
my $Search = $ParamObject->GetParam( Param => 'Search' );
my %CustomerUserList;
# get customer user object
my $CustomerUserObject = $Kernel::OM->Get('Kernel::System::CustomerUser');
if ($Search) {
%CustomerUserList = $CustomerUserObject->CustomerSearch(
Search => $Search,
);
}
my %List;
for my $CustomerUser ( sort keys %CustomerUserList ) {
my %CustomerUserData = $CustomerUserObject->CustomerUserDataGet(
User => $CustomerUser,
);
if ( $CustomerUserData{UserEmail} ) {
$List{ $CustomerUserData{UserEmail} } = {
Email => $CustomerUserList{$CustomerUser},
CustomerKey => $CustomerUser,
};
}
}
# get layout object
my $LayoutObject = $Kernel::OM->Get('Kernel::Output::HTML::Layout');
# build customer search auto-complete field
$LayoutObject->Block(
Name => 'CustomerSearchAutoComplete',
);
if (%List) {
$LayoutObject->Block(
Name => 'SearchResult',
);
my $Count = 1;
for ( reverse sort { $List{$b}->{Email} cmp $List{$a}->{Email} } keys %List ) {
$LayoutObject->Block(
Name => 'Row',
Data => {
Email => $List{$_}->{Email},
Count => $Count,
CustomerDataJSON =>
$Kernel::OM->Get('Kernel::System::JSON')
->Encode( Data => { $List{$_}->{Email} => $List{$_}->{CustomerKey} } ),
},
);
$Count++;
}
}
# start with page ...
my $Output = $LayoutObject->Header( Type => 'Small' );
$Output .= $LayoutObject->Output(
TemplateFile => 'AgentBook',
Data => \%Param
);
$Output .= $LayoutObject->Footer( Type => 'Small' );
return $Output;
}
1;
|