fix export_user so that it cleans out old users

[spider.git] / perl / DXProt.pm

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 66434a0e723bf9ca89d748b79da3402cffa2a712..9a6dabf39224fd25d54b59824ddfe562f59913d7 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -916,7 +916,8 @@ sub normal
                                                }
                                        } else {
                                                $pc19list{$call} = [] unless exists $pc19list{$call};
-                                               push @{$pc19list{$call}}, [$self->{call}, $ver, $flags];                                                
+                                               my $nl = $pc19list{$call};
+                                               push @{$pc19list{$call}}, [$self->{call}, $ver, $flags] unless grep $_->[0] eq $self->{call}, @$nl;
                                        }
                                }