[otrs-cvs] otrs/Kernel/System/PostMaster NewTicket.pm,1.90,1.91

Comments:
Update of /home/cvs/otrs/Kernel/System/PostMaster
In directory lancelot:/tmp/cvs-serv24529/Kernel/System/PostMaster

Modified Files:
	NewTicket.pm 
Log Message:
Added bug#1197 - Feature enhancement: Link tickets at "Follow up".

Author: mg

Index: NewTicket.pm
===================================================================
RCS file: /home/cvs/otrs/Kernel/System/PostMaster/NewTicket.pm,v
retrieving revision 1.90
retrieving revision 1.91
diff -2 -u -d -r1.90 -r1.91
--- NewTicket.pm	17 Jan 2013 15:55:09 -0000	1.90
+++ NewTicket.pm	4 Feb 2013 11:12:53 -0000	1.91
@@ -17,4 +17,5 @@
 use Kernel::System::AutoResponse;
 use Kernel::System::CustomerUser;
+use Kernel::System::LinkObject;
 
 use vars qw($VERSION);
@@ -39,4 +40,5 @@
 
     $Self->{CustomerUserObject} = Kernel::System::CustomerUser->new(%Param);
+    $Self->{LinkObject}         = Kernel::System::LinkObject->new(%Param);
 
     return $Self;
@@ -358,4 +360,19 @@
     }
 
+    if ( $Param{LinkToTicketID} ) {
+        my $SourceKey = $Param{LinkToTicketID};
+        my $TargetKey = $TicketID;
+
+        $Self->{LinkObject}->LinkAdd(
+            SourceObject => 'Ticket',
+            SourceKey    => $SourceKey,
+            TargetObject => 'Ticket',
+            TargetKey    => $TargetKey,
+            Type         => 'Normal',
+            State        => 'Valid',
+            UserID       => $Param{InmailUserID},
+        );
+    }
+
     # debug
     if ( $Self->{Debug} > 0 ) {
---------------------------------------------------------------------
OTRS mailing list: cvs-log - Webpage: http://otrs.org/
Archive: http://lists.otrs.org/pipermail/cvs-log
To unsubscribe: http://lists.otrs.org/cgi-bin/listinfo/cvs-log