[Rt-commit] r13016 - in rt/branches/3.8-TESTING: share/html/Elements

[jesse at bestpractical.com]

Author: jesse
Date: Sat Jun  7 02:01:31 2008
New Revision: 13016

Modified:
   rt/branches/3.8-TESTING/   (props changed)
   rt/branches/3.8-TESTING/share/html/Elements/ShowLinks

Log:
 r32441 at 31b:  jesse | 2008-06-07 01:37:36 -0400
 * Perltidy


Modified: rt/branches/3.8-TESTING/share/html/Elements/ShowLinks
==============================================================================
--- rt/branches/3.8-TESTING/share/html/Elements/ShowLinks	(original)
+++ rt/branches/3.8-TESTING/share/html/Elements/ShowLinks	Sat Jun  7 02:01:31 2008
@@ -111,14 +111,26 @@
 <%INIT>
 
 my $clone = {};
-my $path = RT->Config->Get('WebPath') . '/Ticket/Create.html?Queue='. $Ticket->Queue .'&CloneTicket='. $Ticket->id;
+my $path
+    = RT->Config->Get('WebPath')
+    . '/Ticket/Create.html?Queue='
+    . $Ticket->Queue
+    . '&CloneTicket='
+    . $Ticket->id;
 
-for  my $relation (qw(MemberOf Members DependsOn DependedOnBy RefersTo ReferredToBy)){
-    my $mode = $RT::Ticket::LINKTYPEMAP{$relation}->{Mode};
-    my $type = $RT::Ticket::LINKTYPEMAP{$relation}->{Type};
-    my $other = "Local".$mode;
-    my $field  = $mode eq 'Base' ? 'new-'. $type : $type.'-new';
-    $clone->{$field} = $path . "&$field=" . join ('%20', (map { $_->$other()}  @{ $Ticket->$relation->ItemsArrayRef}), $Ticket->id);
+for my $relation (
+    qw(MemberOf Members DependsOn DependedOnBy RefersTo ReferredToBy))
+{
+    my $mode  = $RT::Ticket::LINKTYPEMAP{$relation}->{Mode};
+    my $type  = $RT::Ticket::LINKTYPEMAP{$relation}->{Type};
+    my $other = "Local" . $mode;
+    my $field = $mode eq 'Base' ? 'new-' . $type : $type . '-new';
+    $clone->{$field} 
+        = $path 
+        . "&$field="
+        . join( '%20',
+        ( map { $_->$other() } @{ $Ticket->$relation->ItemsArrayRef } ),
+        $Ticket->id );
 }
 
 </%INIT>