show customers in ticket lists, RT#8784

1 files changed, 19 insertions, 0 deletions

diff --git a/rt/share/html/Elements/RT__Ticket/ColumnMap b/rt/share/html/Elements/RT__Ticket/ColumnMap
index c1f9e319a..e848939e1 100644
--- a/rt/share/html/Elements/RT__Ticket/ColumnMap
+++ b/rt/share/html/Elements/RT__Ticket/ColumnMap
@@ -313,6 +313,25 @@ $COLUMN_MAP = {
             return \$bookmark;
         },
     },
+
+    Customer => {
+        title     => 'Customer', #loc
+        attribute => 'Customer', #title/attribute/name... what does it all mean?
+        value     => sub {
+          my $Ticket = shift;
+          my @Customers = @{ $Ticket->Customers->ItemsArrayRef };
+          my @CustResolvers = map $_->TargetURI->Resolver, @Customers;
+          my @return = ();
+          for ( 0 .. $#CustResolvers ) {
+            my $c = @CustResolvers[$_];
+            push @return, \'<A HREF="', $c->HREF, \'">', $c->AsString, \'</A>';
+            push @return, \'<BR>' if scalar(@CustResolvers) > 1
+                                  && $_ != $#CustResolvers;
+          }
+          @return;
+        },
+    },
+
 };
 
 # if no GPG support, then KeyOwnerName and KeyRequestors fall back to the regular