[Rt-commit] r11067 - rt/branches/3.8-TESTING/html/Elements

[ruz at bestpractical.com]

Author: ruz
Date: Thu Mar 13 16:53:09 2008
New Revision: 11067

Modified:
   rt/branches/3.8-TESTING/html/Elements/ShowLinks

Log:
* integrate Extension-EasyRelatedTickets

Modified: rt/branches/3.8-TESTING/html/Elements/ShowLinks
==============================================================================
--- rt/branches/3.8-TESTING/html/Elements/ShowLinks	(original)
+++ rt/branches/3.8-TESTING/html/Elements/ShowLinks	Thu Mar 13 16:53:09 2008
@@ -47,7 +47,7 @@
 %# END BPS TAGGED BLOCK }}}
 <table>
   <tr>
-    <td class="labeltop"><&|/l&>Depends on</&>:</td>
+    <td class="labeltop"><&|/l&>Depends on</&>: (<a href="<%$clone->{'new-DependsOn'}%>"><% loc('Create') %></a>)</td>
     <td class="value">
 <ul>
 % while (my $Link = $Ticket->DependsOn->Next) {
@@ -57,7 +57,7 @@
     </td>
   </tr>
   <tr>
-    <td class="labeltop"><&|/l&>Depended on by</&>:</td>
+    <td class="labeltop"><&|/l&>Depended on by</&>: (<a href="<%$clone->{'DependsOn-new'}%>"><% loc('Create') %></a>)</td>
     <td class="value">
 <ul>
 % while (my $Link = $Ticket->DependedOnBy->Next) {
@@ -67,7 +67,8 @@
     </td>
   </tr>
   <tr>
-    <td class="labeltop"><&|/l&>Parents</&>:</td>
+    <td class="labeltop"><&|/l&>Parents</&>: (<a href="<%$clone->{'new-MemberOf'}%>"><% loc('Create') %></a>)</td>
+
     <td class="value">
 <ul>
 % while (my $Link = $Ticket->MemberOf->Next) {
@@ -77,11 +78,11 @@
     </td>
   </tr>
   <tr>
-    <td class="labeltop"><&|/l&>Children</&>:</td>
+    <td class="labeltop"><&|/l&>Children</&>: (<a href="<%$clone->{'MemberOf-new'}%>"><% loc('Create') %></a>)</td>
     <td class="value"><& /Ticket/Elements/ShowMembers, Ticket => $Ticket &></td>
   </tr>
   <tr>
-    <td class="labeltop"><&|/l&>Refers to</&>:</td>
+    <td class="labeltop"><&|/l&>Refers to</&>: (<a href="<%$clone->{'new-RefersTo'}%>"><% loc('Create') %></a>)</td>
     <td class="value">
 <ul>
 % while (my $Link = $Ticket->RefersTo->Next) {
@@ -91,7 +92,7 @@
     </td>
   </tr>
   <tr>
-    <td class="labeltop"><&|/l&>Referred to by</&>:</td>
+    <td class="labeltop"><&|/l&>Referred to by</&>: (<a href="<%$clone->{'RefersTo-new'}%>"><% loc('Create') %></a>)</td>
     <td class="value">
     <ul>
 % while (my $Link = $Ticket->ReferredToBy->Next) {
@@ -117,6 +118,49 @@
 
 </table>
 
+<%INIT>
+
+my $clone;
+my $path = '/Ticket/Create.html?Queue='. $Ticket->Queue .'&CloneTicket='. $Ticket->id;
+my $members = $Ticket->Members;
+my ( @members, @members_of, @refers, @refers_by, @depends, @depends_by );
+while ( my $member = $members->Next ) {
+    push @members, $member->LocalBase;
+}
+$clone->{'MemberOf-new'} = $path . '&MemberOf-new=' . join '%20', @members, $Ticket->id;
+
+my $members_of = $Ticket->MemberOf;
+while ( my $member_of = $members_of->Next ) {
+    push @members_of, $member_of->LocalTarget;
+}
+$clone->{'new-MemberOf'} = $path . '&new-MemberOf=' . join '%20', @members_of, $Ticket->id;
+
+my $refers = $Ticket->RefersTo;
+while ( my $refer = $refers->Next ) {
+    push @refers, $refer->LocalTarget;
+}
+$clone->{'new-RefersTo'} = $path . '&new-RefersTo=' . join '%20', @refers, $Ticket->id;
+
+my $refers_by = $Ticket->ReferredToBy;
+while ( my $refer_by = $refers_by->Next ) {
+    push @refers_by, $refer_by->LocalBase;
+}
+$clone->{'RefersTo-new'} = $path . '&RefersTo-new=' . join '%20', @refers_by, $Ticket->id;
+
+my $depends = $Ticket->DependsOn;
+while ( my $depend = $depends->Next ) {
+    push @depends, $depend->LocalTarget;
+}
+$clone->{'new-DependsOn'} = $path . '&new-DependsOn=' . join '%20', @depends, $Ticket->id;
+
+my $depends_by = $Ticket->DependedOnBy;
+while ( my $depend_by = $depends_by->Next ) {
+    push @depends_by, $depend_by->LocalBase;
+}
+$clone->{'DependsOn-new'} = $path . '&DependsOn-new=' . join '%20', @depends_by, $Ticket->id;
+
+</%INIT>
+
 <%ARGS>
 $Ticket => undef
 </%ARGS>