skip unreviewed and fragment records

[function2gene.git] / bin / parse_uniprot_results

diff --git a/bin/parse_uniprot_results b/bin/parse_uniprot_results
index 6b90eb72b47660fb0b8beaf7745337f43ebaab57..96a176d1706ffc16b37418e366a4018b4d96ac3e 100755 (executable)
--- a/bin/parse_uniprot_results
+++ b/bin/parse_uniprot_results
@@ -136,6 +136,8 @@ FILE: while ($_ = $dir->read) {
          if (not defined $current_field and $type ne 'ID') {
               next FILE;
          }
+         next FILE if $type eq 'DE' and $data =~ /\(Fragment\)/;
+         next FILE if $type eq 'ID' and $data =~ /Unreviewed;/;
          if (not defined $current_field or $current_field->{type} ne $type) {
               if (defined $current_field) {
                    push @fields,$current_field;