%# $Header: /raid/cvsroot/rt/webrt/Ticket/Attic/ModifyLinks.html,v 1.1.2.1 2000/12/12 08:05:41 jesse Exp $ %# Copyright 1996-2000 Jesse Vincent & Tobias Brox <& /Elements/Header, Title => "Link ticket ".$Ticket->Id &> <& /Ticket/Elements/Tabs, id => $id &> <& /Elements/TitleBoxStart, contentbg => "#cccccc", title => "Link tickets" &>
(URI(s) or ticket id(s):) <& /Elements/SelectLinkType &> this Ticket .
This ticket <& /Elements/SelectLinkType &> .
<& /Elements/TitleBoxEnd &> <%ARGS> $id => undef <%INIT> if (!$ARGS{'id'}) { Abort("No ticket specified"); } my $Ticket = RT::Ticket->new($session{CurrentUser}); unless ($Ticket->Load($id)) { Abort("/Elements/Error"); }