/usr/share/otrs/Kernel/Modules/AgentBook.pm is in otrs2 3.3.5-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 | # --
# Kernel/Modules/AgentBook.pm - addressbook module
# Copyright (C) 2001-2014 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);
return $Self;
}
sub Run {
my ( $Self, %Param ) = @_;
# get params
for (qw(ToCustomer CcCustomer BccCustomer)) {
$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} } = $CustomerUserList{$_};
}
}
# 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} cmp $List{$a} } keys %List ) {
$Self->{LayoutObject}->Block(
Name => 'Row',
Data => {
Name => $List{$_},
Email => $_,
Count => $Count,
},
);
$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;
|