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 % 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>
  42 % }
  43     </td>
  44   </tr>
  45   <tr>
  46     <td class="labeltop"><&|/l&>Depended on by</&>:</td>
  47     <td class="value">
  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>
  53 % }
  54     </td>
  55   </tr>
  56   <tr>
  57     <td class="labeltop"><&|/l&>Parents</&>:</td>
  58     <td class="value">
  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>
  64 % }
  65     </td>
  66   </tr>
  67   <tr>
  68     <td class="labeltop"><&|/l&>Children</&>:</td>
  69     <td class="value">
  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>
  75 % }
  76     </td>
  77   </tr>
  78   <tr>
  79     <td class="labeltop"><&|/l&>Refers to</&>:</td>
  80     <td class="value">
  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>
  86 % } else {
  87       <A HREF="<%$link->TargetURI->Resolver->HREF%>"><%$link->TargetURI->Resolver->AsString%></A><br>
  88 % }
  89 %}
  90     </td>
  91   </tr>
  92   <tr>
  93     <td class="labeltop"><&|/l&>Referred to by</&>:</td>
  94     <td class="value">
  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>
 100 % } else {
 101       <A HREF="<%$link->BaseURI->Resolver->HREF%>"><%$link->BaseURI->Resolver->AsString%></A><br>
 102 %}
 103 % }
 104     </td>
 105   </tr>
 106 </table>
 107
 108 </TD>
 109 <TD VALIGN=TOP>
 110 <h3><&|/l&>New Relationships</&></h3>
 111 <i><&|/l&>Enter tickets or URIs to link tickets to. Seperate multiple entries with spaces.</&></i><br>
 112 <TABLE>
 113   <TR>
 114     <TD class="label"><&|/l&>Merge into</&>:</TD>
 115     <TD class="entry"><input name="<%$Ticket->Id%>-MergeInto"> <i><&|/l&>(only one ticket)</&></i></TD>
 116   </TR>
 117   <TR>
 118     <TD class="label"><&|/l&>Depends on</&>:</TD>
 119     <TD class="entry"><input name="<%$Ticket->Id%>-DependsOn"></TD>
 120   </TR>
 121   <TR>
 122     <TD class="label"><&|/l&>Depended on by</&>:</TD>
 123     <TD class="entry"><input name="DependsOn-<%$Ticket->Id%>"></TD>
 124   </TR>
 125   <TR>
 126     <TD class="label"><&|/l&>Parents</&>:</TD>
 127     <TD class="entry"><input name="<%$Ticket->Id%>-MemberOf"></TD>
 128   </TR>
 129   <TR>
 130     <TD class="label"><&|/l&>Children</&>:</TD>
 131     <TD class="entry"> <input name="MemberOf-<%$Ticket->Id%>"></TD>
 132   </TR>
 133   <TR>
 134     <TD class="label"><&|/l&>Refers to</&>:</TD>
 135     <TD class="entry"><input name="<%$Ticket->Id%>-RefersTo"></TD>
 136   </TR>
 137   <TR>
 138     <TD class="label"><&|/l&>Referred to by</&>:</TD>
 139     <TD class="entry"> <input name="RefersTo-<%$Ticket->Id%>"></TD>
 140   </TR>
 141 </TABLE>
 142 </TD>
 143 </TR>
 144 </TABLE>
 145
 146
 147
 148 <%ARGS>
 149 $Ticket => undef
 150 </%ARGS>