%# $Header: /raid/cvsroot/rt/webrt/Ticket/Attic/Display.html,v 1.1.2.37 2000/08/07 04:31:12 jesse Exp $ %# Copyright 1996-2000 Jesse Vincent <& /Elements/Header, Title => "Ticket View (#".$Ticket->Id.($Ticket->Subject&&(", ".$Ticket->Subject)).")" &> % for (@Actions) { <%$_%>
% } <& /Ticket/Elements/TicketToolBox, Ticket => $Ticket&> <& /Ticket/Elements/ShowSummary, Ticket => $Ticket &> <& /Elements/TitleBoxEnd &>

Ticket History

<& /Ticket/Elements/ShowHistory , Ticket => $Ticket &> <& /Elements/TitleBoxEnd &> <%ARGS> $id => undef $Create => undef <%INIT> &Error('No ticket specified') unless $id; use RT::Ticket; use RT::CurrentUser; use RT::Interface::Web; my @Actions; #Here, tobias passes in an empty array so we can get the returns out. my $Ticket = &CreateOrLoad(CurrentUser => $session{'CurrentUser'}, id=>$id, ARGS=>\%ARGS, Actions=>\@Actions); my ($linkid, $message, $tid); if ($ARGS{'DependsOn'}){ ($linkid, $message, $tid) = $Ticket->LinkTo( Target => $ARGS{'DependsOn'}, Type => 'DependsOn'); push @Actions, $message; } if ($ARGS{'DependedOnBy'}){ ($linkid, $message, $tid) = $Ticket->LinkFrom( Base => $ARGS{'DependedOnBy'}, Type => 'DependsOn'); push @Actions, $message; } if ($ARGS{'MemberOf'}){ ($linkid, $message, $tid) = $Ticket->LinkTo( Target => $ARGS{'MemberOf'}, Type => 'MemberOf'); push @Actions, $message; } $id=$Ticket->Id; # Eventually, link up the ticket: &LinkUpIfRequested(ARGS=>\%ARGS, Actions=>\@Actions, Ticket=>$Ticket); # Eventually, update the told, take, steal, kill the ticket: &ProcessSimpleActions(ARGS=>\%ARGS, Actions=>\@Actions, Ticket=>$Ticket);