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
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
# --
# Copyright (C) 2001-2021 OTRS AG, https://otrs.com/
# --
# This software comes with ABSOLUTELY NO WARRANTY. For details, see
# the enclosed file COPYING for license information (GPL). If you
# did not receive this file, see https://www.gnu.org/licenses/gpl-3.0.txt.
# --
package Kernel::Output::HTML::ArticleAction::AgentTicketEmailResend;
use strict;
use warnings;
use Kernel::Language qw(Translatable);
use Kernel::System::VariableCheck qw(IsHashRefWithData);
our @ObjectDependencies = (
'Kernel::Config',
'Kernel::System::Log',
'Kernel::System::Ticket',
'Kernel::System::Ticket::Article',
);
sub new {
my ( $Type, %Param ) = @_;
my $Self = {};
bless( $Self, $Type );
return $Self;
}
sub CheckAccess {
my ( $Self, %Param ) = @_;
for my $Needed (qw(Ticket Article ChannelName UserID)) {
if ( !$Param{$Needed} ) {
$Kernel::OM->Get('Kernel::System::Log')->Log(
Priority => 'error',
Message => "Need $Needed!",
);
return;
}
}
# Check basic conditions.
if ( $Param{ChannelName} ne 'Email' ) {
return;
}
# Check previous article transmission status.
my $ArticleBackendObject = $Kernel::OM->Get('Kernel::System::Ticket::Article')->BackendForArticle(
%{ $Param{Article} },
);
my $TransmissionStatus = $ArticleBackendObject->ArticleTransmissionStatus(
ArticleID => $Param{Article}->{ArticleID},
);
return if !IsHashRefWithData($TransmissionStatus);
# Only show resend action if previous transmission failed.
if (
$TransmissionStatus->{Status}
&& $TransmissionStatus->{Status} ne 'Failed'
)
{
return;
}
my $ActionName = 'AgentTicketEmailResend';
my $ConfigObject = $Kernel::OM->Get('Kernel::Config');
# Check if module is registered.
return if !$ConfigObject->Get('Frontend::Module')->{$ActionName};
# Check ACLs.
return if !$Param{AclActionLookup}->{$ActionName};
my $TicketObject = $Kernel::OM->Get('Kernel::System::Ticket');
my $Config = $ConfigObject->Get("Ticket::Frontend::$ActionName");
if ( $Config->{Permission} ) {
my $Ok = $TicketObject->TicketPermission(
Type => $Config->{Permission},
TicketID => $Param{Ticket}->{TicketID},
UserID => $Param{UserID},
LogNo => 1,
);
return if !$Ok;
}
if ( $Config->{RequiredLock} ) {
my $Locked = $TicketObject->TicketLockGet(
TicketID => $Param{Ticket}->{TicketID}
);
if ($Locked) {
my $AccessOk = $TicketObject->OwnerCheck(
TicketID => $Param{Ticket}->{TicketID},
OwnerID => $Param{UserID},
);
return if !$AccessOk;
}
}
return 1;
}
sub GetConfig {
my ( $Self, %Param ) = @_;
for my $Needed (qw(Ticket Article UserID)) {
if ( !$Param{$Needed} ) {
$Kernel::OM->Get('Kernel::System::Log')->Log(
Priority => 'error',
Message => "Need $Needed!",
);
return;
}
}
my %MenuItem = (
ItemType => 'Link',
Description => Translatable('Resend this article'),
Name => Translatable('Resend'),
Class => 'AsPopup PopupType_TicketAction',
Link =>
"Action=AgentTicketEmailResend;TicketID=$Param{Ticket}->{TicketID};ArticleID=$Param{Article}->{ArticleID}",
);
return ( \%MenuItem );
}
1;
|
