cloned tickets inherit customer links, #11169

[freeside.git] / rt / share / html / Ticket / Display.html

diff --git a/rt/share/html/Ticket/Display.html b/rt/share/html/Ticket/Display.html
index 6fd8b85..a6850bb 100755 (executable)
--- 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 ) {