rt/webrt/Ticket/Elements/EditLinks

   1 %# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Ticket/Elements/Attic/EditLinks,v 1.1 2002-08-12 06:17:09 ivan Exp $
   2 %# Copyright 1996-2000 Jesse Vincent <jesse@fsck.com>
   3
   4
   5 <TABLE>
   6 <TR>
   7 <TD VALIGN=TOP>
   8 <h3>New Relationships</h3>
   9 <i>Enter tickets or URIs to link tickets to. Seperate multiple entries with spaces.</i><br>
  10 <TABLE>
  11 <TR><TD>Merge into:</TD><TD><input name="<%$Ticket->Id%>-MergeInto"> <i>(only one ticket)</i></TD></TR>
  12 <TR><TD>Depends on:</TD><TD><input name="<%$Ticket->Id%>-DependsOn"></TD></TR>
  13 <TR><TD>Depended on by:</TD><TD><input name="DependsOn-<%$Ticket->Id%>"></TD></TR>
  14 <TR><TD>Parents:</TD><TD><input name="<%$Ticket->Id%>-MemberOf"></TD></TR>
  15 <TR><TD>Children:</TD><TD> <input name="MemberOf-<%$Ticket->Id%>"></TD></TR>
  16 <TR><TD>Refers to:</TD><TD><input name="<%$Ticket->Id%>-RefersTo"></TD></TR>
  17 <TR><TD>Referred to by:</TD><TD> <input name="RefersTo-<%$Ticket->Id%>"></TD></TR>
  18 </TABLE>
  19 </TD>
  20 <TD VALIGN=TOP WIDTH=50%>
  21 <h3>Current Relationships</h3>
  22 <i>(Check boxes to delete)</i><br>
  23
  24 Depends on:<BR>
  25 <UL>
  26 % while (my $link = $Ticket->DependsOn->Next) {
  27 % my $member = $link->TargetObj;
  28 <LI>
  29 <INPUT TYPE=CHECKBOX NAME="DeleteLink--<%$link->Type%>-<%$link->Target%>">
  30 <a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: (<%$member->OwnerObj->Name%>) <%$member->Subject%>
  31 [<%$member->Status%>]
  32
  33 % }
  34 </UL>
  35
  36 Depended on by:<BR>
  37 <UL>
  38 % while (my $link = $Ticket->DependedOnBy->Next) {
  39 % my $member = $link->BaseObj;
  40 <LI>
  41 <INPUT TYPE=CHECKBOX NAME="DeleteLink-<%$link->Base%>-<%$link->Type%>-">
  42 <a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: (<%$member->OwnerObj->Name%>) <%$member->Subject%>
  43 [<%$member->Status%>]
  44 % }
  45 </UL>
  46
  47 Parents:<BR>
  48 <UL>
  49 % while (my $link = $Ticket->MemberOf->Next) {
  50 % my $member = $link->TargetObj;
  51 <LI>
  52 <INPUT TYPE=CHECKBOX NAME="DeleteLink--<%$link->Type%>-<%$link->Target%>">
  53 <a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: (<%$member->OwnerObj->Name%>) <%$member->Subject%>
  54 [<%$member->Status%>]
  55
  56 % }
  57 </UL>
  58
  59 Children:<BR>
  60 <UL>
  61 % while (my $link = $Ticket->Members->Next) {
  62 <LI>
  63 <INPUT TYPE=CHECKBOX NAME="DeleteLink-<%$link->Base%>-<%$link->Type%>-">
  64 % my $member = $link->BaseObj;
  65 <a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: (<%$member->OwnerObj->Name%>) <%$member->Subject%>
  66 [<%$member->Status%>]
  67 % }
  68 </UL>
  69
  70
  71 Refers to:<BR>
  72 <UL>
  73 % while (my $link = $Ticket->RefersTo->Next) {
  74 <LI>
  75 <INPUT TYPE=CHECKBOX NAME="DeleteLink--<%$link->Type%>-<%$link->Target%>">
  76 % if ($link->TargetIsLocal) {
  77 % my $member = $link->TargetObj;
  78
  79 <a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> [<%$member->Status%>]<br>
  80 % } else {
  81 <A HREF="<%$link->TargetAsHREF%>"><%$link->Target%></A>
  82 % }
  83 %}
  84 </UL>
  85
  86 Referred to by:<BR>
  87 <UL>
  88 % while (my $link = $Ticket->ReferredToBy->Next) {
  89 <LI>
  90 <INPUT TYPE=CHECKBOX NAME="DeleteLink-<%$link->Base%>-<%$link->Type%>-">
  91 % if ($link->BaseIsLocal) {
  92 % my $member = $link->BaseObj;
  93 <a href="<%$RT::WebPath%>/Ticket/Display.html?id=<%$member->Id%>"><%$member->Id%></a>: (<%$member->OwnerObj->Name%>) <%$member->Subject%> [<%$member->Status%>]<br>
  94 % } else {
  95 <A HREF="<%$link->BaseAsHREF%>"><%$link->Base%></A>
  96 %}
  97 % }
  98 </UL>
  99
 100
 101 </TD>
 102 </TR>
 103 </TABLE>
 104
 105
 106
 107 <%ARGS>
 108 $Ticket => undef
 109 </%ARGS>