I reckon I'm a Perl n00b TIA
Code: Select all
use strict;
[...]
my %wf = (
FollowupState => 'WF::LogonID::ADUserDone',
FollowupTicketTitle => 'Neuer Titel des Tickets',
FollowupArticleSubject => 'Dies ist das Subject.',
FollowupArticleBody => 'Dies ist ein Body mit Anweisungen für die Folgequeue.',
FollowupQueueID => 65
);
$Self->{TicketObject}->HistoryAdd(
TicketID => $Param{Data}->{TicketID},
CreateUserID => $Param{UserID},
HistoryType => 'Misc',
Name => 'Testtest.' . $wf("FollowupState"),
);