init III
This commit is contained in:
110
Perl OTRS/Kernel/Output/HTML/TicketBulk/Base.pm
Normal file
110
Perl OTRS/Kernel/Output/HTML/TicketBulk/Base.pm
Normal file
@@ -0,0 +1,110 @@
|
||||
# --
|
||||
# Copyright (C) 2001-2019 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::TicketBulk::Base;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
our @ObjectManagerDisabled = 1;
|
||||
|
||||
=head1 NAME
|
||||
|
||||
Kernel::Output::HTML::TicketBulk::Base - ticket bulk module base class
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Base class for ticket bulk modules.
|
||||
|
||||
=head1 PUBLIC INTERFACE
|
||||
|
||||
=head2 Display()
|
||||
|
||||
Generates the required HTML to display new fields in ticket bulk screen. It requires to get the value from the web request (e.g. in case of an error to re-display the field content).
|
||||
|
||||
my $ModuleContent = $ModuleObject->Display(
|
||||
Errors => $ErrorsHashRef, # created in ticket bulk and updated by Validate()
|
||||
UserID => $123,
|
||||
);
|
||||
|
||||
Returns:
|
||||
|
||||
$ModuleContent = $HMLContent; # HTML content of the field
|
||||
|
||||
Override this method in your modules.
|
||||
|
||||
=cut
|
||||
|
||||
sub Display {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
=head2 Validate()
|
||||
|
||||
Validates the values of the ticket bulk module. It requires to get the value from the web request.
|
||||
|
||||
my @Result = $ModuleObject->Validate(
|
||||
UserID => $123,
|
||||
);
|
||||
|
||||
Returns:
|
||||
|
||||
@Result = (
|
||||
{
|
||||
ErrorKey => 'SomeFieldName',
|
||||
ErrorValue => 'SomeErrorMessage',
|
||||
}
|
||||
# ...
|
||||
);
|
||||
|
||||
Override this method in your modules.
|
||||
|
||||
=cut
|
||||
|
||||
sub Validate {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
return ();
|
||||
}
|
||||
|
||||
=head2 Store()
|
||||
|
||||
Stores the values of the ticket bulk module. It requires to get the values from the web request.
|
||||
|
||||
my @Success = $ModuleObject->Store(
|
||||
TicketID => 123,
|
||||
UserID => 123,
|
||||
);
|
||||
|
||||
Returns:
|
||||
|
||||
$Success = 1, # or false in case of an error;
|
||||
|
||||
Override this method in your modules.
|
||||
|
||||
=cut
|
||||
|
||||
sub Store {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
=head1 TERMS AND CONDITIONS
|
||||
|
||||
This software is part of the OTRS project (L<https://otrs.org/>).
|
||||
|
||||
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 L<https://www.gnu.org/licenses/gpl-3.0.txt>.
|
||||
|
||||
=cut
|
||||
211
Perl OTRS/Kernel/Output/HTML/TicketBulk/MasterSlave.pm
Normal file
211
Perl OTRS/Kernel/Output/HTML/TicketBulk/MasterSlave.pm
Normal file
@@ -0,0 +1,211 @@
|
||||
# --
|
||||
# Copyright (C) 2001-2019 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::TicketBulk::MasterSlave;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use Kernel::Language qw(Translatable);
|
||||
|
||||
our @ObjectDependencies = (
|
||||
'Kernel::Config',
|
||||
'Kernel::Output::HTML::Layout',
|
||||
'Kernel::System::DynamicField',
|
||||
'Kernel::System::DynamicField::Backend',
|
||||
'Kernel::System::Ticket',
|
||||
'Kernel::System::Web::Request',
|
||||
);
|
||||
|
||||
sub new {
|
||||
my ( $Type, %Param ) = @_;
|
||||
|
||||
# allocate new hash for object
|
||||
my $Self = {%Param};
|
||||
bless( $Self, $Type );
|
||||
|
||||
my $ConfigObject = $Kernel::OM->Get('Kernel::Config');
|
||||
|
||||
# get master/slave dynamic field
|
||||
$Self->{MasterSlaveDynamicField} = $ConfigObject->Get('MasterSlave::DynamicField') || '';
|
||||
$Self->{MasterSlaveAdvancedEnabled} = $ConfigObject->Get('MasterSlave::AdvancedEnabled') || 0;
|
||||
|
||||
if ( $Self->{MasterSlaveDynamicField} ) {
|
||||
$Self->{DynamicFieldConfig} = $Kernel::OM->Get('Kernel::System::DynamicField')->DynamicFieldGet(
|
||||
Name => $Self->{MasterSlaveDynamicField},
|
||||
);
|
||||
}
|
||||
|
||||
return $Self;
|
||||
}
|
||||
|
||||
sub Display {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
# if there is no configured dynamic field or if advanced mode is not enable, there is nothing to do
|
||||
return if !$Self->{MasterSlaveDynamicField};
|
||||
return if !$Self->{MasterSlaveAdvancedEnabled};
|
||||
|
||||
my $ServerError;
|
||||
my $ErrorMessage;
|
||||
if ( exists $Param{Errors}->{ $Self->{DynamicFieldConfig}->{Name} } ) {
|
||||
$ServerError = 1;
|
||||
$ErrorMessage = $Param{Errors}->{ $Self->{DynamicFieldConfig}->{Name} };
|
||||
}
|
||||
|
||||
my $PossibleValuesFilter = $Self->_GetMasterSlaveData(
|
||||
%Param,
|
||||
MasterSlaveDynamicField => $Self->{MasterSlaveDynamicField},
|
||||
);
|
||||
|
||||
# get field HTML
|
||||
my $DynamicFieldHTML = $Kernel::OM->Get('Kernel::System::DynamicField::Backend')->EditFieldRender(
|
||||
DynamicFieldConfig => $Self->{DynamicFieldConfig},
|
||||
PossibleValuesFilter => $PossibleValuesFilter,
|
||||
ServerError => $ServerError || '',
|
||||
ErrorMessage => $ErrorMessage || '',
|
||||
LayoutObject => $Kernel::OM->Get('Kernel::Output::HTML::Layout'),
|
||||
ParamObject => $Kernel::OM->Get('Kernel::System::Web::Request'),
|
||||
Mandatory => 0,
|
||||
);
|
||||
|
||||
# indentation here is on purpose so the HTML will look according to the framework
|
||||
my $HTMLString = <<"EOF";
|
||||
$DynamicFieldHTML->{Label}
|
||||
<div class="Field">
|
||||
$DynamicFieldHTML->{Field}
|
||||
</div>
|
||||
<div class="Clear"></div>
|
||||
EOF
|
||||
|
||||
return $HTMLString;
|
||||
}
|
||||
|
||||
sub Validate {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
# if there is no configured dynamic field or if advanced mode is not enable, there is nothing to do
|
||||
return if !$Self->{MasterSlaveDynamicField};
|
||||
return if !$Self->{MasterSlaveAdvancedEnabled};
|
||||
|
||||
my $PossibleValuesFilter = $Self->_GetMasterSlaveData(
|
||||
%Param,
|
||||
MasterSlaveDynamicField => $Self->{MasterSlaveDynamicField},
|
||||
);
|
||||
|
||||
my $ValidationResult = $Kernel::OM->Get('Kernel::System::DynamicField::Backend')->EditFieldValueValidate(
|
||||
DynamicFieldConfig => $Self->{DynamicFieldConfig},
|
||||
PossibleValuesFilter => $PossibleValuesFilter,
|
||||
ParamObject => $Kernel::OM->Get('Kernel::System::Web::Request'),
|
||||
Mandatory => 0,
|
||||
);
|
||||
|
||||
if ( $ValidationResult->{ServerError} ) {
|
||||
return (
|
||||
{
|
||||
ErrorKey => $Self->{DynamicFieldConfig}->{Name},
|
||||
ErrorValue => $ValidationResult->{ErrorMessage},
|
||||
}
|
||||
);
|
||||
}
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
sub Store {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
# if there is no configured dynamic field or if advanced mode is not enable, there is nothing to do
|
||||
return 1 if !$Self->{MasterSlaveDynamicField};
|
||||
return 1 if !$Self->{MasterSlaveAdvancedEnabled};
|
||||
|
||||
# get needed objects
|
||||
my $DynamicFieldBackendObject = $Kernel::OM->Get('Kernel::System::DynamicField::Backend');
|
||||
|
||||
# extract the dynamic field value form the web request
|
||||
my $DynamicFieldValue = $DynamicFieldBackendObject->EditFieldValueGet(
|
||||
DynamicFieldConfig => $Self->{DynamicFieldConfig},
|
||||
ParamObject => $Kernel::OM->Get('Kernel::System::Web::Request'),
|
||||
LayoutObject => $Kernel::OM->Get('Kernel::Output::HTML::Layout'),
|
||||
);
|
||||
|
||||
# set the value
|
||||
my $Success = $DynamicFieldBackendObject->ValueSet(
|
||||
DynamicFieldConfig => $Self->{DynamicFieldConfig},
|
||||
ObjectID => $Param{TicketID},
|
||||
Value => $DynamicFieldValue,
|
||||
UserID => $Param{UserID},
|
||||
);
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
sub _GetMasterSlaveData {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
my $ConfigObject = $Kernel::OM->Get('Kernel::Config');
|
||||
my $LayoutObject = $Kernel::OM->Get('Kernel::Output::HTML::Layout');
|
||||
|
||||
# get master slave config
|
||||
my $UnsetMasterSlave = $ConfigObject->Get('MasterSlave::UnsetMasterSlave') || 0;
|
||||
my $UpdateMasterSlave = $ConfigObject->Get('MasterSlave::UpdateMasterSlave') || 0;
|
||||
|
||||
my %Data = (
|
||||
'' => '-',
|
||||
Master => $LayoutObject->{LanguageObject}->Translate('New Master Ticket'),
|
||||
);
|
||||
|
||||
if ($UnsetMasterSlave) {
|
||||
$Data{UnsetMaster} = Translatable('Unset Master Tickets');
|
||||
$Data{UnsetSlave} = Translatable('Unset Slave Tickets');
|
||||
}
|
||||
|
||||
# get needed objects
|
||||
my $TicketObject = $Kernel::OM->Get('Kernel::System::Ticket');
|
||||
|
||||
if ($UpdateMasterSlave) {
|
||||
|
||||
my @TicketIDs = $TicketObject->TicketSearch(
|
||||
Result => 'ARRAY',
|
||||
|
||||
# master slave dynamic field
|
||||
'DynamicField_' . $Param{MasterSlaveDynamicField} => {
|
||||
Equals => 'Master',
|
||||
},
|
||||
|
||||
StateType => 'Open',
|
||||
Limit => 60,
|
||||
UserID => $Param{UserID},
|
||||
Permission => 'ro',
|
||||
);
|
||||
|
||||
my $TicketHook = $ConfigObject->Get('Ticket::Hook');
|
||||
my $TicketHookDivider = $ConfigObject->Get('Ticket::HookDivider');
|
||||
|
||||
TICKETID:
|
||||
for my $TicketID (@TicketIDs) {
|
||||
|
||||
# get each ticket from the search results
|
||||
my %CurrentTicket = $TicketObject->TicketGet(
|
||||
TicketID => $TicketID
|
||||
);
|
||||
next TICKETID if !%CurrentTicket;
|
||||
|
||||
$Data{"SlaveOf:$CurrentTicket{TicketNumber}"} = $LayoutObject->{LanguageObject}->Translate(
|
||||
'Slave of %s%s%s: %s',
|
||||
$TicketHook,
|
||||
$TicketHookDivider,
|
||||
$CurrentTicket{TicketNumber},
|
||||
$CurrentTicket{Title},
|
||||
);
|
||||
}
|
||||
}
|
||||
return \%Data;
|
||||
|
||||
}
|
||||
1;
|
||||
Reference in New Issue
Block a user