Дипломная работа: Автоматизация учета и обработки заявок пользователей на техническую поддержку (Help Desk) в ООО "Сфера ИТ"

Скачать

Заказать новую работу

Внимание! Если размещение файла нарушает Ваши авторские права, то обязательно сообщите нам
96
],
);
# get ticket id
my $TicketID = $Self->TicketIDLookup(
TicketNumber => $Param{TN},
UserID => $Param{UserID},
);
# add history entry
$Self->HistoryAdd(
TicketID => $TicketID,
QueueID => $Param{QueueID},
HistoryType => 'NewTicket',
Name => "\%\%$Param{TN}\%\%$Param{Queue}\%\%$Param{Prior-
ity}\%\%$Param{State}\%\%$TicketID",
CreateUserID => $Param{UserID},
);
if ( $Kernel::OM->Get('Kernel::Config')->Get('Ticket::Service') ) {
# history insert for service so that initial values can be seen
my $HistoryService = $Param{Service} || 'NULL';
my $HistoryServiceID = $Param{ServiceID} || '';
$Self->HistoryAdd(
TicketID => $TicketID,
HistoryType => 'ServiceUpdate',
Name => "\%\%$HistoryService\%\%$HistoryS-
erviceID\%\%NULL\%\%",
CreateUserID => $Param{UserID},
97
);
# history insert for SLA
my $HistorySLA = $Param{SLA} || 'NULL';
my $HistorySLAID = $Param{SLAID} || '';
$Self->HistoryAdd(
TicketID => $TicketID,
HistoryType => 'SLAUpdate',
Name => "\%\%$HistorySLA\%\%$HistorySLAID\%\%NULL\%\%",
CreateUserID => $Param{UserID},
);
}
if ( $Kernel::OM->Get('Kernel::Config')->Get('Ticket::Type') ) {
# Insert history record for ticket type, so that initial value can be seen.
# Please see bug#12702 for more information.
$Self->HistoryAdd(
TicketID => $TicketID,
HistoryType => 'TypeUpdate',
Name => "\%\%$Param{Type}\%\%$Param{TypeID}",
CreateUserID => $Param{UserID},
);
}
# set customer data if given
if ( $Param{CustomerNo} || $Param{CustomerID} || $Param{CustomerUser} ) {
$Self->TicketCustomerSet(
TicketID => $TicketID,
No => $Param{CustomerNo} || $Param{CustomerID} || '',
98
User => $Param{CustomerUser} || '',
UserID => $Param{UserID},
);
}
# update ticket view index
$Self->TicketAcceleratorAdd( TicketID => $TicketID );
# log ticket creation
$Kernel::OM->Get('Kernel::System::Log')->Log(
Priority => 'info',
Message => "New Ticket [$Param{TN}/" . substr( $Param{Title}, 0, 15 ) . "]
created "
. "(TicketID=$TicketID,Queue=$Param{Queue},Priority=$Param{Prior-
ity},State=$Param{State})",
);
# trigger event
$Self->EventHandler(
Event => 'TicketCreate',
Data => {
TicketID => $TicketID,
},
UserID => $Param{UserID},
);
return $TicketID;
}
=head2 TicketDelete()
99
deletes a ticket with articles from storage
my $Success = $TicketObject->TicketDelete(
TicketID => 123,
UserID => 123,
);
Events:
TicketDelete
=cut
sub TicketDelete {
my ( $Self, %Param ) = @_;
# check needed stuff
for my $Needed (qw(TicketID UserID)) {
if ( !$Param{$Needed} ) {
$Kernel::OM->Get('Kernel::System::Log')->Log(
Priority => 'error',
Message => "Need $Needed!",
);
return;
}
}
# Delete dynamic field values for this ticket.
$Kernel::OM->Get('Kernel::System::DynamicFieldValue')->ObjectValuesDelete(
ObjectType => 'Ticket',
100
ObjectID => $Param{TicketID},
UserID => $Param{UserID},
);
# clear ticket cache
$Self->_TicketCacheClear( TicketID => $Param{TicketID} );
# delete ticket links
$Kernel::OM->Get('Kernel::System::LinkObject')->LinkDeleteAll(
Object => 'Ticket',
Key => $Param{TicketID},
UserID => $Param{UserID},
);
# update ticket index
return if !$Self->TicketAcceleratorDelete(%Param);
my $ArticleObject = $Kernel::OM->Get('Kernel::System::Ticket::Article');
# delete ticket entries from article search index.
return if !$ArticleObject->ArticleSearchIndexDelete(
TicketID => $Param{TicketID},
UserID => $Param{UserID},
);
# get database object
my $DBObject = $Kernel::OM->Get('Kernel::System::DB');
# remove ticket watcher
return if !$DBObject->Do(
Источник: https://baza.diplomsite.ru/previewfile/2374

Смотрите также:

2014 biblioonline ru
Изложение содержания дела, по которому приняты судебные постановления
Отформатировать текстовый фрагмент в MS Word. Текстовый фрагмент, который подлежит форматированию, приведен в документе Задание 1, прикрепленном ниже.