3 %# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com>
5 %# (Except where explictly superceded by other copyright notices)
7 %# This work is made available to you under the terms of Version 2 of
8 %# the GNU General Public License. A copy of that license should have
9 %# been provided with this software, but in any event can be snarfed
12 %# This work is distributed in the hope that it will be useful, but
13 %# WITHOUT ANY WARRANTY; without even the implied warranty of
14 %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 %# General Public License for more details.
17 %# Unless otherwise specified, all modifications, corrections or
18 %# extensions to this work which alter its source code become the
19 %# property of Best Practical Solutions, LLC when submitted for
20 %# inclusion in the work.
26 <TD VALIGN=TOP WIDTH=50%>
27 <h3><&|/l&>Current Relationships</&></h3>
32 <td><i><&|/l&>(Check box to delete)</&></i></td>
35 <td class="labeltop"><&|/l&>Depends on</&>:</td>
37 % while (my $link = $Ticket->DependsOn->Next) {
38 % my $member = $link->TargetObj;
39 <INPUT TYPE=CHECKBOX NAME="DeleteLink--<%$link->Type%>-<%$link->Target%>">
40 <a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: (<%$member->OwnerObj->Name%>) <%$member->Subject%>
41 [<%$member->Status%>]<br>
46 <td class="labeltop"><&|/l&>Depended on by</&>:</td>
48 % while (my $link = $Ticket->DependedOnBy->Next) {
49 % my $member = $link->BaseObj;
50 <INPUT TYPE=CHECKBOX NAME="DeleteLink-<%$link->Base%>-<%$link->Type%>-">
51 <a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: (<%$member->OwnerObj->Name%>) <%$member->Subject%>
52 [<%$member->Status%>]<br>
57 <td class="labeltop"><&|/l&>Parents</&>:</td>
59 % while (my $link = $Ticket->MemberOf->Next) {
60 % my $member = $link->TargetObj;
61 <INPUT TYPE=CHECKBOX NAME="DeleteLink--<%$link->Type%>-<%$link->Target%>">
62 <a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: (<%$member->OwnerObj->Name%>) <%$member->Subject%>
63 [<%$member->Status%>]<br>
68 <td class="labeltop"><&|/l&>Children</&>:</td>
70 % while (my $link = $Ticket->Members->Next) {
71 <INPUT TYPE=CHECKBOX NAME="DeleteLink-<%$link->Base%>-<%$link->Type%>-">
72 % my $member = $link->BaseObj;
73 <a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: (<%$member->OwnerObj->Name%>) <%$member->Subject%>
74 [<%$member->Status%>]<br>
79 <td class="labeltop"><&|/l&>Refers to</&>:</td>
81 % while (my $link = $Ticket->RefersTo->Next) {
82 <INPUT TYPE=CHECKBOX NAME="DeleteLink--<%$link->Type%>-<%$link->Target%>">
83 % if ($link->TargetURI->IsLocal) {
84 % my $member = $link->TargetObj;
85 <a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> [<%$member->Status%>]<br>
87 <A HREF="<%$link->TargetURI->Resolver->HREF%>"><%$link->TargetURI->Resolver->AsString%></A><br>
93 <td class="labeltop"><&|/l&>Referred to by</&>:</td>
95 % while (my $link = $Ticket->ReferredToBy->Next) {
96 <INPUT TYPE=CHECKBOX NAME="DeleteLink-<%$link->Base%>-<%$link->Type%>-">
97 % if ($link->BaseURI->IsLocal) {
98 % my $member = $link->BaseObj;
99 <a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> [<%$member->Status%>]<br>
101 <A HREF="<%$link->BaseURI->Resolver->HREF%>"><%$link->BaseURI->Resolver->AsString%></A><br>
110 <h3><&|/l&>New Relationships</&></h3>
111 <i><&|/l&>Enter tickets or URIs to link tickets to. Seperate multiple entries with spaces.</&></i><br>
114 <TD class="label"><&|/l&>Merge into</&>:</TD>
115 <TD class="entry"><input name="<%$Ticket->Id%>-MergeInto"> <i><&|/l&>(only one ticket)</&></i></TD>
118 <TD class="label"><&|/l&>Depends on</&>:</TD>
119 <TD class="entry"><input name="<%$Ticket->Id%>-DependsOn"></TD>
122 <TD class="label"><&|/l&>Depended on by</&>:</TD>
123 <TD class="entry"><input name="DependsOn-<%$Ticket->Id%>"></TD>
126 <TD class="label"><&|/l&>Parents</&>:</TD>
127 <TD class="entry"><input name="<%$Ticket->Id%>-MemberOf"></TD>
130 <TD class="label"><&|/l&>Children</&>:</TD>
131 <TD class="entry"> <input name="MemberOf-<%$Ticket->Id%>"></TD>
134 <TD class="label"><&|/l&>Refers to</&>:</TD>
135 <TD class="entry"><input name="<%$Ticket->Id%>-RefersTo"></TD>
138 <TD class="label"><&|/l&>Referred to by</&>:</TD>
139 <TD class="entry"> <input name="RefersTo-<%$Ticket->Id%>"></TD>