init III
This commit is contained in:
689
Perl OTRS/Kernel/System/ProcessManagement/DB/ActivityDialog.pm
Normal file
689
Perl OTRS/Kernel/System/ProcessManagement/DB/ActivityDialog.pm
Normal file
@@ -0,0 +1,689 @@
|
||||
# --
|
||||
# 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::System::ProcessManagement::DB::ActivityDialog;
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
use Kernel::System::VariableCheck qw(:all);
|
||||
|
||||
our @ObjectDependencies = (
|
||||
'Kernel::Config',
|
||||
'Kernel::System::Cache',
|
||||
'Kernel::System::DB',
|
||||
'Kernel::System::Log',
|
||||
'Kernel::System::YAML',
|
||||
);
|
||||
|
||||
=head1 NAME
|
||||
|
||||
Kernel::System::ProcessManagement::DB::ActivityDialog
|
||||
|
||||
=head1 DESCRIPTION
|
||||
|
||||
Process Management DB ActivityDialog backend
|
||||
|
||||
=head1 PUBLIC INTERFACE
|
||||
|
||||
=head2 new()
|
||||
|
||||
Don't use the constructor directly, use the ObjectManager instead:
|
||||
|
||||
my $ActivityDialogObject = $Kernel::OM->Get('Kernel::System::ProcessManagement::DB::ActivityDialog');
|
||||
|
||||
=cut
|
||||
|
||||
sub new {
|
||||
my ( $Type, %Param ) = @_;
|
||||
|
||||
# allocate new hash for object
|
||||
my $Self = {};
|
||||
bless( $Self, $Type );
|
||||
|
||||
# get the cache TTL (in seconds)
|
||||
$Self->{CacheTTL} = int( $Kernel::OM->Get('Kernel::Config')->Get('Process::CacheTTL') || 3600 );
|
||||
|
||||
# set lower if database is case sensitive
|
||||
$Self->{Lower} = '';
|
||||
if ( $Kernel::OM->Get('Kernel::System::DB')->GetDatabaseFunction('CaseSensitive') ) {
|
||||
$Self->{Lower} = 'LOWER';
|
||||
}
|
||||
|
||||
return $Self;
|
||||
}
|
||||
|
||||
=head2 ActivityDialogAdd()
|
||||
|
||||
add new ActivityDialog
|
||||
|
||||
returns the id of the created activity dialog if success or undef otherwise
|
||||
|
||||
my $ID = $ActivityDialogObject->ActivityDialogAdd(
|
||||
EntityID => 'AD1' # mandatory, exportable unique identifier
|
||||
Name => 'NameOfActivityDialog', # mandatory
|
||||
Config => $ConfigHashRef, # mandatory, activity dialog configuration to be
|
||||
# stored in YAML format
|
||||
UserID => 123, # mandatory
|
||||
);
|
||||
|
||||
Returns:
|
||||
|
||||
$ID = 567;
|
||||
|
||||
=cut
|
||||
|
||||
sub ActivityDialogAdd {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
# check needed stuff
|
||||
for my $Key (qw(EntityID Name Config UserID)) {
|
||||
if ( !$Param{$Key} ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "Need $Key!",
|
||||
);
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
# get database object
|
||||
my $DBObject = $Kernel::OM->Get('Kernel::System::DB');
|
||||
|
||||
# check if EntityID already exists
|
||||
return if !$DBObject->Prepare(
|
||||
SQL => "
|
||||
SELECT id
|
||||
FROM pm_activity_dialog
|
||||
WHERE $Self->{Lower}(entity_id) = $Self->{Lower}(?)",
|
||||
Bind => [ \$Param{EntityID} ],
|
||||
Limit => 1,
|
||||
);
|
||||
|
||||
my $EntityExists;
|
||||
while ( my @Data = $DBObject->FetchrowArray() ) {
|
||||
$EntityExists = 1;
|
||||
}
|
||||
|
||||
if ($EntityExists) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "The EntityID:$Param{EntityID} already exists for an activity dialog!"
|
||||
);
|
||||
return;
|
||||
}
|
||||
|
||||
# check config valid format (at least it must contain the description short, fields and field
|
||||
# order)
|
||||
if ( !IsHashRefWithData( $Param{Config} ) ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "Config needs to be a valid Hash reference!",
|
||||
);
|
||||
return;
|
||||
}
|
||||
for my $Needed (qw(DescriptionShort Fields FieldOrder)) {
|
||||
if ( !$Param{Config}->{$Needed} ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "Need $Needed in Config!",
|
||||
);
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
# check config formats
|
||||
if ( ref $Param{Config}->{Fields} ne 'HASH' ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "Config Fields must be a Hash!",
|
||||
);
|
||||
return;
|
||||
}
|
||||
if ( ref $Param{Config}->{FieldOrder} ne 'ARRAY' ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "Config Fields must be an Array!",
|
||||
);
|
||||
return;
|
||||
}
|
||||
|
||||
# dump layout and config as string
|
||||
my $Config = $Kernel::OM->Get('Kernel::System::YAML')->Dump( Data => $Param{Config} );
|
||||
|
||||
# Make sure the resulting string has the UTF-8 flag. YAML only sets it if
|
||||
# part of the data already had it.
|
||||
utf8::upgrade($Config);
|
||||
|
||||
# sql
|
||||
return if !$DBObject->Do(
|
||||
SQL => '
|
||||
INSERT INTO pm_activity_dialog ( entity_id, name, config, create_time,
|
||||
create_by, change_time, change_by )
|
||||
VALUES (?, ?, ?, current_timestamp, ?, current_timestamp, ?)',
|
||||
Bind => [
|
||||
\$Param{EntityID}, \$Param{Name}, \$Config, \$Param{UserID}, \$Param{UserID},
|
||||
],
|
||||
);
|
||||
|
||||
return if !$DBObject->Prepare(
|
||||
SQL => 'SELECT id FROM pm_activity_dialog WHERE entity_id = ?',
|
||||
Bind => [ \$Param{EntityID} ],
|
||||
);
|
||||
|
||||
my $ID;
|
||||
while ( my @Row = $DBObject->FetchrowArray() ) {
|
||||
$ID = $Row[0];
|
||||
}
|
||||
|
||||
# delete cache
|
||||
$Kernel::OM->Get('Kernel::System::Cache')->CleanUp(
|
||||
Type => 'ProcessManagement_ActivityDialog',
|
||||
);
|
||||
|
||||
return if !$ID;
|
||||
|
||||
return $ID;
|
||||
}
|
||||
|
||||
=head2 ActivityDialogDelete()
|
||||
|
||||
delete an ActivityDialog
|
||||
|
||||
returns 1 if success or undef otherwise
|
||||
|
||||
my $Success = $ActivityDialogObject->ActivityDialogDelete(
|
||||
ID => 123,
|
||||
UserID => 123,
|
||||
);
|
||||
|
||||
=cut
|
||||
|
||||
sub ActivityDialogDelete {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
# check needed stuff
|
||||
for my $Key (qw(ID UserID)) {
|
||||
if ( !$Param{$Key} ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "Need $Key!"
|
||||
);
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
# check if exists
|
||||
my $ActivityDialog = $Self->ActivityDialogGet(
|
||||
ID => $Param{ID},
|
||||
UserID => 1,
|
||||
);
|
||||
return if !IsHashRefWithData($ActivityDialog);
|
||||
|
||||
# delete activity dialog
|
||||
return if !$Kernel::OM->Get('Kernel::System::DB')->Do(
|
||||
SQL => 'DELETE FROM pm_activity_dialog WHERE id = ?',
|
||||
Bind => [ \$Param{ID} ],
|
||||
);
|
||||
|
||||
# delete cache
|
||||
$Kernel::OM->Get('Kernel::System::Cache')->CleanUp(
|
||||
Type => 'ProcessManagement_ActivityDialog',
|
||||
);
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
=head2 ActivityDialogGet()
|
||||
|
||||
get Activity Dialog attributes
|
||||
|
||||
my $ActivityDialog = $ActivityDialogObject->ActivityDialogGet(
|
||||
ID => 123, # ID or EntityID is needed
|
||||
EntityID => 'P1',
|
||||
UserID => 123, # mandatory
|
||||
);
|
||||
|
||||
Returns:
|
||||
|
||||
$ActivityDialog = {
|
||||
ID => 123,
|
||||
EntityID => 'AD1',
|
||||
Name => 'some name',
|
||||
Config => $ConfigHashRef,
|
||||
CreateTime => '2012-07-04 15:08:00',
|
||||
ChangeTime => '2012-07-04 15:08:00',
|
||||
};
|
||||
|
||||
=cut
|
||||
|
||||
sub ActivityDialogGet {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
# check needed stuff
|
||||
if ( !$Param{ID} && !$Param{EntityID} ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => 'Need ID or EntityID!'
|
||||
);
|
||||
return;
|
||||
}
|
||||
|
||||
if ( !$Param{UserID} ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => 'Need UserID!',
|
||||
);
|
||||
return;
|
||||
}
|
||||
|
||||
# get cache object
|
||||
my $CacheObject = $Kernel::OM->Get('Kernel::System::Cache');
|
||||
|
||||
# check cache
|
||||
my $CacheKey;
|
||||
if ( $Param{ID} ) {
|
||||
$CacheKey = 'ActivityDialogGet::ID::' . $Param{ID};
|
||||
}
|
||||
else {
|
||||
$CacheKey = 'ActivityDialogGet::EntityID::' . $Param{EntityID};
|
||||
}
|
||||
|
||||
my $Cache = $CacheObject->Get(
|
||||
Type => 'ProcessManagement_ActivityDialog',
|
||||
Key => $CacheKey,
|
||||
);
|
||||
return $Cache if $Cache;
|
||||
|
||||
# get database object
|
||||
my $DBObject = $Kernel::OM->Get('Kernel::System::DB');
|
||||
|
||||
# sql
|
||||
if ( $Param{ID} ) {
|
||||
return if !$DBObject->Prepare(
|
||||
SQL => '
|
||||
SELECT id, entity_id, name, config, create_time, change_time
|
||||
FROM pm_activity_dialog
|
||||
WHERE id = ?',
|
||||
Bind => [ \$Param{ID} ],
|
||||
Limit => 1,
|
||||
);
|
||||
}
|
||||
else {
|
||||
return if !$DBObject->Prepare(
|
||||
SQL => '
|
||||
SELECT id, entity_id, name, config, create_time, change_time
|
||||
FROM pm_activity_dialog
|
||||
WHERE entity_id = ?',
|
||||
Bind => [ \$Param{EntityID} ],
|
||||
Limit => 1,
|
||||
);
|
||||
}
|
||||
|
||||
# get yaml object
|
||||
my $YAMLObject = $Kernel::OM->Get('Kernel::System::YAML');
|
||||
|
||||
my %Data;
|
||||
while ( my @Data = $DBObject->FetchrowArray() ) {
|
||||
|
||||
my $Config = $YAMLObject->Load( Data => $Data[3] );
|
||||
|
||||
%Data = (
|
||||
ID => $Data[0],
|
||||
EntityID => $Data[1],
|
||||
Name => $Data[2],
|
||||
Config => $Config,
|
||||
CreateTime => $Data[4],
|
||||
ChangeTime => $Data[5],
|
||||
|
||||
);
|
||||
}
|
||||
|
||||
return if !$Data{ID};
|
||||
|
||||
# set cache
|
||||
$CacheObject->Set(
|
||||
Type => 'ProcessManagement_ActivityDialog',
|
||||
Key => $CacheKey,
|
||||
Value => \%Data,
|
||||
TTL => $Self->{CacheTTL},
|
||||
);
|
||||
|
||||
return \%Data;
|
||||
}
|
||||
|
||||
=head2 ActivityDialogUpdate()
|
||||
|
||||
update ActivityDialog attributes
|
||||
|
||||
returns 1 if success or undef otherwise
|
||||
|
||||
my $Success = $ActivityDialogObject->ActivityDialogUpdate(
|
||||
ID => 123, # mandatory
|
||||
EntityID => 'AD1' # mandatory, exportable unique identifier
|
||||
Name => 'NameOfActivityDialog', # mandatory
|
||||
Config => $ConfigHashRef, # mandatory, actvity dialog configuration to be
|
||||
# stored in YAML format
|
||||
UserID => 123, # mandatory
|
||||
);
|
||||
|
||||
=cut
|
||||
|
||||
sub ActivityDialogUpdate {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
# check needed stuff
|
||||
for my $Key (qw(ID EntityID Name Config UserID)) {
|
||||
if ( !$Param{$Key} ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "Need $Key!"
|
||||
);
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
# get database object
|
||||
my $DBObject = $Kernel::OM->Get('Kernel::System::DB');
|
||||
|
||||
# check if EntityID already exists
|
||||
return if !$DBObject->Prepare(
|
||||
SQL => "
|
||||
SELECT id FROM pm_activity_dialog
|
||||
WHERE $Self->{Lower}(entity_id) = $Self->{Lower}(?)
|
||||
AND id != ?",
|
||||
Bind => [ \$Param{EntityID}, \$Param{ID} ],
|
||||
LIMIT => 1,
|
||||
);
|
||||
|
||||
my $EntityExists;
|
||||
while ( my @Data = $DBObject->FetchrowArray() ) {
|
||||
$EntityExists = 1;
|
||||
}
|
||||
|
||||
if ($EntityExists) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "The EntityID:$Param{Name} already exists for an ActivityDialog!",
|
||||
);
|
||||
return;
|
||||
}
|
||||
|
||||
# check config valid format (at least it must contain the description)
|
||||
if ( !IsHashRefWithData( $Param{Config} ) ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "Config needs to be a valid Hash reference!",
|
||||
);
|
||||
return;
|
||||
}
|
||||
for my $Needed (qw(DescriptionShort Fields FieldOrder)) {
|
||||
if ( !$Param{Config}->{$Needed} ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "Need $Needed in Config!",
|
||||
);
|
||||
return;
|
||||
}
|
||||
}
|
||||
|
||||
# check config formats
|
||||
if ( ref $Param{Config}->{Fields} ne 'HASH' ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "Config Fields must be a Hash!",
|
||||
);
|
||||
return;
|
||||
}
|
||||
if ( ref $Param{Config}->{FieldOrder} ne 'ARRAY' ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "Config Fields must be an Array!",
|
||||
);
|
||||
return;
|
||||
}
|
||||
|
||||
# dump layout and config as string
|
||||
my $Config = $Kernel::OM->Get('Kernel::System::YAML')->Dump( Data => $Param{Config} );
|
||||
|
||||
# Make sure the resulting string has the UTF-8 flag. YAML only sets it if
|
||||
# part of the data already had it.
|
||||
utf8::upgrade($Config);
|
||||
|
||||
# check if need to update db
|
||||
return if !$DBObject->Prepare(
|
||||
SQL => '
|
||||
SELECT entity_id, name, config
|
||||
FROM pm_activity_dialog
|
||||
WHERE id = ?',
|
||||
Bind => [ \$Param{ID} ],
|
||||
Limit => 1,
|
||||
);
|
||||
|
||||
my $CurrentEntityID;
|
||||
my $CurrentName;
|
||||
my $CurrentConfig;
|
||||
while ( my @Data = $DBObject->FetchrowArray() ) {
|
||||
$CurrentEntityID = $Data[0];
|
||||
$CurrentName = $Data[1];
|
||||
$CurrentConfig = $Data[2];
|
||||
}
|
||||
|
||||
if ($CurrentEntityID) {
|
||||
|
||||
return 1 if $CurrentEntityID eq $Param{EntityID}
|
||||
&& $CurrentName eq $Param{Name}
|
||||
&& $CurrentConfig eq $Config;
|
||||
}
|
||||
|
||||
# sql
|
||||
return if !$DBObject->Do(
|
||||
SQL => '
|
||||
UPDATE pm_activity_dialog
|
||||
SET entity_id = ?, name = ?, config = ?, change_time = current_timestamp,
|
||||
change_by = ?
|
||||
WHERE id = ?',
|
||||
Bind => [
|
||||
\$Param{EntityID}, \$Param{Name}, \$Config, \$Param{UserID}, \$Param{ID},
|
||||
],
|
||||
);
|
||||
|
||||
# delete cache
|
||||
$Kernel::OM->Get('Kernel::System::Cache')->CleanUp(
|
||||
Type => 'ProcessManagement_ActivityDialog',
|
||||
);
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
=head2 ActivityDialogList()
|
||||
|
||||
get an ActivityDialog list
|
||||
|
||||
my $List = $ActivityDialogObject->ActivityDialogList(
|
||||
UseEntities => 0, # default 0, 1 || 0. if 0 the return hash keys are
|
||||
# the activity dialog IDs otherwise keys are the
|
||||
# activity dialog entity IDs
|
||||
UserID => 1,
|
||||
);
|
||||
|
||||
Returns:
|
||||
|
||||
$List = {
|
||||
1 => 'NameOfActivityDialog',
|
||||
}
|
||||
|
||||
or
|
||||
|
||||
$List = {
|
||||
'AD1' => 'NameOfActivityDialog',
|
||||
}
|
||||
|
||||
=cut
|
||||
|
||||
sub ActivityDialogList {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
# check needed
|
||||
if ( !$Param{UserID} ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => "Need UserID!"
|
||||
);
|
||||
return;
|
||||
}
|
||||
|
||||
# check cache
|
||||
my $UseEntities = 0;
|
||||
if ( defined $Param{UseEntities} && $Param{UseEntities} ) {
|
||||
$UseEntities = 1;
|
||||
}
|
||||
|
||||
# get cache object
|
||||
my $CacheObject = $Kernel::OM->Get('Kernel::System::Cache');
|
||||
|
||||
my $CacheKey = 'ActivityDialogList::UseEntities::' . $UseEntities;
|
||||
my $Cache = $CacheObject->Get(
|
||||
Type => 'ProcessManagement_ActivityDialog',
|
||||
Key => $CacheKey,
|
||||
);
|
||||
return $Cache if ref $Cache;
|
||||
|
||||
# get database object
|
||||
my $DBObject = $Kernel::OM->Get('Kernel::System::DB');
|
||||
|
||||
my $SQL = '
|
||||
SELECT id, entity_id, name
|
||||
FROM pm_activity_dialog';
|
||||
|
||||
return if !$DBObject->Prepare( SQL => $SQL );
|
||||
|
||||
my %Data;
|
||||
while ( my @Row = $DBObject->FetchrowArray() ) {
|
||||
if ( !$UseEntities ) {
|
||||
$Data{ $Row[0] } = $Row[2];
|
||||
}
|
||||
else {
|
||||
$Data{ $Row[1] } = $Row[2];
|
||||
}
|
||||
}
|
||||
|
||||
# set cache
|
||||
$CacheObject->Set(
|
||||
Type => 'ProcessManagement_ActivityDialog',
|
||||
Key => $CacheKey,
|
||||
Value => \%Data,
|
||||
TTL => $Self->{CacheTTL},
|
||||
);
|
||||
|
||||
return \%Data;
|
||||
}
|
||||
|
||||
=head2 ActivityDialogListGet()
|
||||
|
||||
get an Activity Dialog list with all activity dialog details
|
||||
|
||||
my $List = $ActivityDialogObject->ActivityDialogListGet(
|
||||
UserID => 1,
|
||||
);
|
||||
|
||||
Returns:
|
||||
|
||||
$List = [
|
||||
{
|
||||
ID => 123,
|
||||
EntityID => 'AD1',
|
||||
Name => 'some name',
|
||||
Config => $ConfigHashRef,
|
||||
CreateTime => '2012-07-04 15:08:00',
|
||||
ChangeTime => '2012-07-04 15:08:00',
|
||||
}
|
||||
{
|
||||
ID => 456,
|
||||
EntityID => 'AD2',
|
||||
Name => 'some name',
|
||||
Config => $ConfigHashRef,
|
||||
CreateTime => '2012-07-04 15:09:00',
|
||||
ChangeTime => '2012-07-04 15:09:00',
|
||||
}
|
||||
];
|
||||
|
||||
=cut
|
||||
|
||||
sub ActivityDialogListGet {
|
||||
my ( $Self, %Param ) = @_;
|
||||
|
||||
# check needed stuff
|
||||
if ( !$Param{UserID} ) {
|
||||
$Kernel::OM->Get('Kernel::System::Log')->Log(
|
||||
Priority => 'error',
|
||||
Message => 'Need UserID!',
|
||||
);
|
||||
return;
|
||||
}
|
||||
|
||||
# get cache object
|
||||
my $CacheObject = $Kernel::OM->Get('Kernel::System::Cache');
|
||||
|
||||
# check cache
|
||||
my $CacheKey = 'ActivityDialogListGet';
|
||||
|
||||
my $Cache = $CacheObject->Get(
|
||||
Type => 'ProcessManagement_ActivityDialog',
|
||||
Key => $CacheKey,
|
||||
);
|
||||
return $Cache if $Cache;
|
||||
|
||||
# get database object
|
||||
my $DBObject = $Kernel::OM->Get('Kernel::System::DB');
|
||||
|
||||
# sql
|
||||
return if !$DBObject->Prepare(
|
||||
SQL => '
|
||||
SELECT id, entity_id
|
||||
FROM pm_activity_dialog
|
||||
ORDER BY id',
|
||||
);
|
||||
|
||||
my @ActivityDialogIDs;
|
||||
while ( my @Row = $DBObject->FetchrowArray() ) {
|
||||
push @ActivityDialogIDs, $Row[0];
|
||||
}
|
||||
|
||||
my @Data;
|
||||
for my $ItemID (@ActivityDialogIDs) {
|
||||
|
||||
my $ActivityDialogData = $Self->ActivityDialogGet(
|
||||
ID => $ItemID,
|
||||
UserID => 1,
|
||||
);
|
||||
push @Data, $ActivityDialogData;
|
||||
}
|
||||
|
||||
# set cache
|
||||
$CacheObject->Set(
|
||||
Type => 'ProcessManagement_ActivityDialog',
|
||||
Key => $CacheKey,
|
||||
Value => \@Data,
|
||||
TTL => $Self->{CacheTTL},
|
||||
);
|
||||
|
||||
return \@Data;
|
||||
}
|
||||
|
||||
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
|
||||
Reference in New Issue
Block a user