%# $Header: /raid/cvsroot/rt/webrt/Ticket/ModifyLinks.html,v 1.2 2001/11/06 23:07:07 jesse Exp $ %# Copyright 1996-2000 Jesse Vincent <& /Elements/Header, Title => "Link ticket ".$Ticket->Id &> <& /Ticket/Elements/Tabs, Ticket => $Ticket, current_tab => "Ticket/ModifyLinks.html?id=".$Ticket->Id &> <& /Elements/ListActions, actions => \@results &>

<& /Elements/TitleBoxStart, title => 'Edit Relationships', color => "#336633"&> <& Elements/EditLinks, Ticket => $Ticket &> <& /Elements/TitleBoxEnd &> <& /Elements/Submit, color => "#336633", Caption=> 'Save changes' &>

<%INIT> my $Ticket = LoadTicket($id); my @results = ProcessTicketLinks( TicketObj => $Ticket, ARGSRef => \%ARGS); <%ARGS> $id => undef