%#
%# COPYRIGHT:
%#
-%# This software is Copyright (c) 1996-2015 Best Practical Solutions, LLC
+%# This software is Copyright (c) 1996-2019 Best Practical Solutions, LLC
%# <sales@bestpractical.com>
%#
%# (Except where explicitly superseded by other copyright notices)
my $TicketObj = RT::Ticket->new($session{'CurrentUser'});
$TicketObj->Load($id);
-my $attachments = $m->comp('/Ticket/Elements/FindAttachments', Ticket => $TicketObj);
-my $attachment_content = $m->comp('/Ticket/Elements/LoadTextAttachments', Ticket => $TicketObj);
-
-$m->comp('/Ticket/Elements/ShowHistory',
- Ticket => $TicketObj,
- Collapsed => $ARGS{'Collapsed'},
+my $attachments = $TicketObj->Attachments;
+my $attachment_content = $TicketObj->TextAttachments;
+my %extra_args;
+$m->callback( CallbackName => 'ExtraShowHistoryArguments', Ticket => $TicketObj, ExtraArgs => \%extra_args );
+</%INIT>
+<& /Elements/ShowHistory,
+ Object => $TicketObj,
ShowHeaders => $ARGS{'ShowHeaders'},
Attachments => $attachments,
- AttachmentContent => $attachment_content
-);
-
-$m->abort();
-</%INIT>
+ AttachmentContent => $attachment_content,
+ %extra_args,
+ &>
+<script type="text/javascript">ReplaceUserReferences()</script>
+% $m->abort();