%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Ticket/Attic/ModifyLinks.html,v 1.1 2002-08-12 06:17:09 ivan Exp $
%# Copyright 1996-2000 Jesse Vincent <jesse@fsck.com>

<& /Elements/Header, Title => "Link ticket ".$Ticket->Id &>
<& /Ticket/Elements/Tabs, Ticket => $Ticket, current_tab => "Ticket/ModifyLinks.html?id=".$Ticket->Id &>

<& /Elements/ListActions, actions => \@results &>

<form action="ModifyLinks.html" method="post">
<input type="hidden" name="id" value="<%$Ticket->id%>">

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




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