Minor tweak to importer to try even harder to find users in the database before creating new ones.rt-1.3.87

2 files changed, 5 insertions, 3 deletions

diff --git a/Makefile b/Makefile
index aa9a5a3615..fe9e88b5dd 100755
--- a/Makefile
+++ b/Makefile
@@ -6,7 +6,7 @@ PERL			= 	/usr/bin/perl
 
 RT_VERSION_MAJOR	=	1
 RT_VERSION_MINOR	=	3
-RT_VERSION_PATCH	=	86
+RT_VERSION_PATCH	=	87
 
 
 RT_VERSION =	$(RT_VERSION_MAJOR).$(RT_VERSION_MINOR).$(RT_VERSION_PATCH)
diff --git a/tools/import-1.0-to-2.0 b/tools/import-1.0-to-2.0
index 454e7ae4c1..6d58747e94 100644
--- a/tools/import-1.0-to-2.0
+++ b/tools/import-1.0-to-2.0
@@ -699,14 +699,16 @@ sub MigrateTransactions {
 	
 	if ( $trans_args{'Type'} ) {
 	    
-	    # {{{ Figure out who's the transaction actor. create a user if we need to
-	    
+	    # {{{ Figure out the transaction actor. create a user if we need to
 	    
 	    my $User = new RT::User($RT::SystemUser);
 	    
 	    if ($row->{'actor'}) {
 	    	$User->Load( $row->{'actor'} );
 	        unless ($User->Id) {
+		    $User->LoadByEmail($row->{'actor'});
+		}
+	        unless ($User->Id) {
 		    my $Address = $row->{'actor'};
 		    $Address .= "\@$EMAILDOMAIN" unless $Address =~ /\@/;