From 4a90137be473f0d167c64e475d14f137aba1e1cd Mon Sep 17 00:00:00 2001
From: mark <mark>
Date: Wed, 20 Apr 2011 01:22:20 +0000
Subject: cloned tickets inherit customer links, #11169

---
 rt/share/html/Ticket/Display.html | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'rt/share/html/Ticket/Display.html')

diff --git a/rt/share/html/Ticket/Display.html b/rt/share/html/Ticket/Display.html
index 6fd8b85e6..a6850bb1e 100755
--- a/rt/share/html/Ticket/Display.html
+++ b/rt/share/html/Ticket/Display.html
@@ -104,6 +104,14 @@ unless ($id || $TicketObj) {
 if ($ARGS{'id'} eq 'new') {
     # {{{ Create a new ticket
 
+    # Massage customer IDs into member links.
+    my @cust_uris = map { 
+      /^(\d+)$/ && "freeside://freeside/cust_main/$1"
+    } split(' ', $ARGS{'new-Customer'});
+    
+    $ARGS{'new-MemberOf'} = 
+      join(' ', $ARGS{'new-MemberOf'}, @cust_uris);
+
     my $Queue = new RT::Queue( $session{'CurrentUser'} );
     $Queue->Load($ARGS{'Queue'});
     unless ( $Queue->id ) {
-- 
cgit v1.2.1