the correspondent id was being set improperly

diff --git a/Debbugs/DB/Load.pm b/Debbugs/DB/Load.pm
index 12acbcdbcc55c25d2174f4cd9a029195b393dc59..bad48b5e6a2971791275a8925e61d6bf8e11e032 100644 (file)
--- a/Debbugs/DB/Load.pm
+++ b/Debbugs/DB/Load.pm
@@ -164,7 +164,7 @@ sub load_bug {
     for my $addr_type (keys %addr_map) {
         $bug->{$addr_type} =
            $s->resultset('Correspondent')->
-           get_correspondent_id($addr_map{$addr_type})
+           get_correspondent_id($data->{$addr_map{$addr_type}})
     }
     my $b = $s->resultset('Bug')->update_or_create($bug) or
         die "Unable to update or create bug $bug->{id}";