<& /Elements/Header, Title => 'Display ticket #'.$Ticket->id &> <& Elements/Tabs &> <& /Elements/ListActions, actions => \@results &> % if ($Ticket->TimeWorked) { % } % my $selects = $Ticket->QueueObj->KeywordSelects; % while (my $select = $selects->Next) {
Ticket Id <%$Ticket->Id%> % if ($Ticket->Alias) { (<%$Ticket->Alias%>) % }
Requestors <%$Ticket->RequestorsAsString%>
Cc <%$Ticket->CcAsString%>
Status <%$Ticket->Status%>
Queue <%$Ticket->QueueObj->QueueId%> (<%$Ticket->QueueObj->Description%>)
Priority <%$Ticket->Priority %>
Worked <%$Ticket->TimeWorked %> minutes
<%$select->Name%> % my $object_keywords = $Ticket->KeywordsObj($select->id); % while (my $keyword = $object_keywords->Next) { <%$keyword->KeywordObj->RelativePath($select->KeywordObj)%> % } %}
%while (my $Transaction = $Transactions->Next) { % if ($Transactions->IsLast) { % } <& Elements/ShowTransaction, Transaction => $Transaction&>
%} <%INIT> my $field; my @results; # {{{ Load the ticket #If we get handed two ids, mason will make them an array. bleck. # We want teh first one. Just because there's no other sensible way # to deal my @id = (ref $id eq 'ARRAY') ? @{$id} : ($id); my $Ticket = new RT::Ticket($session{'CurrentUser'}); $Ticket->Load($id[0]) || $m->comp('/Elements/Error', Why => "Couldn't load ticket '$id'"); # }}} my ($code, $msg); #Update the status if ((defined $ARGS{'Status'}) and ($ARGS{'Status'} ne $Ticket->Status)) { ($code, $msg) = $Ticket->SetStatus($ARGS{'Status'}); push @results, "$msg"; } my $Transactions = $Ticket->Transactions; <%ARGS> $id => undef