rt/html/Ticket/Elements/EditLinks

   1 %# BEGIN LICENSE BLOCK
   2 %#
   3 %# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com>
   4 %#
   5 %# (Except where explictly superceded by other copyright notices)
   6 %#
   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
  10 %# from www.gnu.org.
  11 %#
  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.
  16 %#
  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.
  21 %#
  22 %#
  23 %# END LICENSE BLOCK
  24 <TABLE width=100%>
  25   <TR>
  26     <TD VALIGN=TOP WIDTH=50%>
  27       <h3><&|/l&>Current Relationships</&></h3>
  28
  29 <table>
  30   <tr>
  31     <td></td>
  32     <td><i><&|/l&>(Check box to delete)</&></i></td>
  33   </tr>
  34   <tr>
  35     <td class="labeltop"><&|/l&>Depends on</&>:</td>
  36     <td class="value">
  37 % while (my $link = $Ticket->DependsOn->Next) {
  38       <INPUT TYPE=CHECKBOX NAME="DeleteLink--<%$link->Type%>-<%$link->Target%>">
  39         <& ShowLink, URI => $link->TargetURI &><br>
  40 % }
  41     </td>
  42   </tr>
  43   <tr>
  44     <td class="labeltop"><&|/l&>Depended on by</&>:</td>
  45     <td class="value">
  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>
  50 % }
  51     </td>
  52   </tr>
  53   <tr>
  54     <td class="labeltop"><&|/l&>Parents</&>:</td>
  55     <td class="value">
  56 % while (my $link = $Ticket->MemberOf->Next) {
  57       <INPUT TYPE=CHECKBOX NAME="DeleteLink--<%$link->Type%>-<%$link->Target%>">
  58         <& ShowLink, URI => $link->TargetURI &><br>
  59 % }
  60     </td>
  61   </tr>
  62   <tr>
  63     <td class="labeltop"><&|/l&>Children</&>:</td>
  64     <td class="value">
  65 % while (my $link = $Ticket->Members->Next) {
  66       <INPUT TYPE=CHECKBOX NAME="DeleteLink-<%$link->Base%>-<%$link->Type%>-">
  67         <& ShowLink, URI => $link->BaseURI &><br>
  68 % }
  69     </td>
  70   </tr>
  71   <tr>
  72     <td class="labeltop"><&|/l&>Refers to</&>:</td>
  73     <td class="value">
  74 % while (my $link = $Ticket->RefersTo->Next) {
  75       <INPUT TYPE=CHECKBOX NAME="DeleteLink--<%$link->Type%>-<%$link->Target%>">
  76         <& ShowLink, URI => $link->TargetURI &><br>
  77 %}
  78     </td>
  79   </tr>
  80   <tr>
  81     <td class="labeltop"><&|/l&>Referred to by</&>:</td>
  82     <td class="value">
  83 % while (my $link = $Ticket->ReferredToBy->Next) {
  84       <INPUT TYPE=CHECKBOX NAME="DeleteLink-<%$link->Base%>-<%$link->Type%>-">
  85         <& ShowLink, URI => $link->BaseURI &><br>
  86 % }
  87     </td>
  88   </tr>
  89 </table>
  90
  91 </TD>
  92 <TD VALIGN=TOP>
  93 <h3><&|/l&>New Relationships</&></h3>
  94 <i><&|/l&>Enter tickets or URIs to link tickets to. Seperate multiple entries with spaces.</&></i><br>
  95 <TABLE>
  96   <TR>
  97     <TD class="label"><&|/l&>Merge into</&>:</TD>
  98     <TD class="entry"><input name="<%$Ticket->Id%>-MergeInto"> <i><&|/l&>(only one ticket)</&></i></TD>
  99   </TR>
 100   <TR>
 101     <TD class="label"><&|/l&>Depends on</&>:</TD>
 102     <TD class="entry"><input name="<%$Ticket->Id%>-DependsOn"></TD>
 103   </TR>
 104   <TR>
 105     <TD class="label"><&|/l&>Depended on by</&>:</TD>
 106     <TD class="entry"><input name="DependsOn-<%$Ticket->Id%>"></TD>
 107   </TR>
 108   <TR>
 109     <TD class="label"><&|/l&>Parents</&>:</TD>
 110     <TD class="entry"><input name="<%$Ticket->Id%>-MemberOf"></TD>
 111   </TR>
 112   <TR>
 113     <TD class="label"><&|/l&>Children</&>:</TD>
 114     <TD class="entry"> <input name="MemberOf-<%$Ticket->Id%>"></TD>
 115   </TR>
 116   <TR>
 117     <TD class="label"><&|/l&>Refers to</&>:</TD>
 118     <TD class="entry"><input name="<%$Ticket->Id%>-RefersTo"></TD>
 119   </TR>
 120   <TR>
 121     <TD class="label"><&|/l&>Referred to by</&>:</TD>
 122     <TD class="entry"> <input name="RefersTo-<%$Ticket->Id%>"></TD>
 123   </TR>
 124 </TABLE>
 125 </TD>
 126 </TR>
 127 </TABLE>
 128
 129
 130
 131 <%ARGS>
 132 $Ticket => undef
 133 </%ARGS>