X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=Debbugs%2FDB%2FLoad.pm;h=c089533e24e7a8523b809404b9885c29e10eb76f;hb=3307e4773b98c052b794b3b59ea5d98019e8ccce;hp=e67dd9fde2d4ad1f3c7cb1bbde56e7bda8e54b7d;hpb=a5cbb9df1b81803ba1a377f1d49cdfbc69b1e359;p=debbugs.git

diff --git a/Debbugs/DB/Load.pm b/Debbugs/DB/Load.pm
index e67dd9f..c089533 100644
--- a/Debbugs/DB/Load.pm
+++ b/Debbugs/DB/Load.pm
@@ -148,10 +148,15 @@ sub load_bug {
         my $full_name = $addrs[0]->phrase();
         $full_name =~ s/^\"|\"$//g;
         $full_name =~ s/^\s+|\s+$//g;
-        $bug->{$addr_type}->update_or_create_related('correspondent_full_names',{full_name=>$full_name}) if length $full_name;
+        if (length $full_name) {
+            $bug->{$addr_type}->
+                update_or_create_related('correspondent_full_names',
+                                        {full_name=>$full_name,
+                                         last_seen => 'NOW()'});
+        }
     }
-     my $b = $s->resultset('Bug')->update_or_create($bug) or
-         die "Unable to update or create bug $bug->{id}";
+    my $b = $s->resultset('Bug')->update_or_create($bug) or
+        die "Unable to update or create bug $bug->{id}";
      $s->txn_do(sub {
 		   for my $ff (qw(found fixed)) {
 		       my @elements = $s->resultset('BugVer')->search({bug => $data->{bug_num},