From 6826f19f69844f5b110886cd514328e6783e82f0 Mon Sep 17 00:00:00 2001
From: Andrew Fresh <andrew@afresh1.com>
Date: Sat, 11 Aug 2012 19:10:38 -0700
Subject: [PATCH] Don't try to create links to tickets we don't know about

They are probably wrong
---
 rt-ticket-importer | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/rt-ticket-importer b/rt-ticket-importer
index 21c1e22..33d527b 100644
--- a/rt-ticket-importer
+++ b/rt-ticket-importer
@@ -349,15 +349,17 @@ sub import_link {
 
     my $base = $link->{Base};
     $base =~ /([0-9]*)$/;
-    $base = $1;
+    $base = $E{Tickets}{$1};
     my $target = $link->{Target};
     $target =~ /([0-9]*)$/;
-    $target = $1;
+    $target = $E{Tickets}{$1};
+
+    return unless $base and $target;
 
     my $linkObj = new RT::Link($RT::SystemUser);
     my $newid   = $linkObj->Create(
-        Base   => $E{Tickets}{$base},
-        Target => $E{Tickets}{$target},
+        Base   => $base,
+        Target => $target,
         Type   => $link->{Type}
     );