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 <INPUT TYPE=CHECKBOX NAME="DeleteLink--<%$link->Type%>-<%$link->Target%>">
39 <& ShowLink, URI => $link->TargetURI &><br>
44 <td class="labeltop"><&|/l&>Depended on by</&>:</td>
46 % while (my $link = $Ticket->DependedOnBy->Next) {
47 % my $member = $link->BaseObj;
48 <INPUT TYPE=CHECKBOX NAME="DeleteLink-<%$link->Base%>-<%$link->Type%>-">
49 <& ShowLink, URI => $link->BaseURI &><br>
54 <td class="labeltop"><&|/l&>Parents</&>:</td>
56 % while (my $link = $Ticket->MemberOf->Next) {
57 <INPUT TYPE=CHECKBOX NAME="DeleteLink--<%$link->Type%>-<%$link->Target%>">
58 <& ShowLink, URI => $link->TargetURI &><br>
63 <td class="labeltop"><&|/l&>Children</&>:</td>
65 % while (my $link = $Ticket->Members->Next) {
66 <INPUT TYPE=CHECKBOX NAME="DeleteLink-<%$link->Base%>-<%$link->Type%>-">
67 <& ShowLink, URI => $link->BaseURI &><br>
72 <td class="labeltop"><&|/l&>Refers to</&>:</td>
74 % while (my $link = $Ticket->RefersTo->Next) {
75 <INPUT TYPE=CHECKBOX NAME="DeleteLink--<%$link->Type%>-<%$link->Target%>">
76 <& ShowLink, URI => $link->TargetURI &><br>
81 <td class="labeltop"><&|/l&>Referred to by</&>:</td>
83 % while (my $link = $Ticket->ReferredToBy->Next) {
84 <INPUT TYPE=CHECKBOX NAME="DeleteLink-<%$link->Base%>-<%$link->Type%>-">
85 <& ShowLink, URI => $link->BaseURI &><br>
93 <h3><&|/l&>New Relationships</&></h3>
94 <i><&|/l&>Enter tickets or URIs to link tickets to. Seperate multiple entries with spaces.</&></i><br>
97 <TD class="label"><&|/l&>Merge into</&>:</TD>
98 <TD class="entry"><input name="<%$Ticket->Id%>-MergeInto"> <i><&|/l&>(only one ticket)</&></i></TD>
101 <TD class="label"><&|/l&>Depends on</&>:</TD>
102 <TD class="entry"><input name="<%$Ticket->Id%>-DependsOn"></TD>
105 <TD class="label"><&|/l&>Depended on by</&>:</TD>
106 <TD class="entry"><input name="DependsOn-<%$Ticket->Id%>"></TD>
109 <TD class="label"><&|/l&>Parents</&>:</TD>
110 <TD class="entry"><input name="<%$Ticket->Id%>-MemberOf"></TD>
113 <TD class="label"><&|/l&>Children</&>:</TD>
114 <TD class="entry"> <input name="MemberOf-<%$Ticket->Id%>"></TD>
117 <TD class="label"><&|/l&>Refers to</&>:</TD>
118 <TD class="entry"><input name="<%$Ticket->Id%>-RefersTo"></TD>
121 <TD class="label"><&|/l&>Referred to by</&>:</TD>
122 <TD class="entry"> <input name="RefersTo-<%$Ticket->Id%>"></TD>