%# $Header: /raid/cvsroot/rt/webrt/Ticket/Attic/LinkIt.html,v 1.1.2.5 2000/06/15 20:43:08 tobiasb Exp $ %# Copyright 1996-2000 Jesse Vincent & Tobias Brox <& /Elements/Header, Title => "Link up request ".$Ticket->Id &> <& /Ticket/Elements/ToolBar, Ticket => $Ticket &> <& /Elements/TitleBoxStart, contentbg => "#cccccc", title => "Make a link from/to this ticket (#" . $Ticket->Id . ": ". encode_entities($Ticket->Subject,"^A-Za-z0-9") . ")", titleright=> "Id."\">Modify / Id."\">Update "&>
This Ticket <& /Elements/SelectLinkType &> (URI(s) or ticket id(s):)
<& /Elements/SelectLinkType &> this ticket.
<& /Elements/TitleBoxEnd &> <%ARGS> $id => undef <%INIT> if (!$ARGS{'id'}) { &mc_comp("/Elements/Error" , Why => "No ticket specified"); $m->abort; } use RT::Ticket; use HTML::Entities; my $Ticket = RT::Ticket->new($RT::CurrentUser); unless ($Ticket->Load($id)) { &mc_comp("/Elements/Error" , Why => "Ticket couldn't be loaded"); $m->abort; }