X-Git-Url: https://git.donarmstrong.com/?p=function2gene.git;a=blobdiff_plain;f=bin%2Fparse_harvester_results;fp=bin%2Fparse_harvester_results;h=e52066127ceab16107b04bfc68c919ee150adb86;hp=30fc0113271433674f6f178a5da882334d533c4f;hb=a4b9214b7939fbe990f2373684dfd7aa1f9e77e2;hpb=0486e6434cd182e8b30ba008d98ad3d3f008d2ab

diff --git a/bin/parse_harvester_results b/bin/parse_harvester_results
index 30fc011..e520661 100755
--- a/bin/parse_harvester_results
+++ b/bin/parse_harvester_results
@@ -142,6 +142,13 @@ while ($_ = $dir->read) {
 	  ($results[NAME]) = $result =~ m&<TR>\s*<TD\s*BGCOLOR="\#FEFE99"\s*VALIGN="top"\s*NOWRAP>Entry\s*name</TD>\s*
 					  <TD\s*VALIGN="top"\s*COLSPAN="5">\s*<b>\s*([^<]+?)\s*</b></TD>\s*</TR>&xis;
      }
+     if (not defined $results[NAME]) {
+	  ($results[NAME]) = $result =~ m{<TITLE>[^:]+:\s*[^\*]+\*[^\*]+\*\s*([^-]+)}xis;
+	  $results[NAME] =~ s/\s*$// if defined $results[NAME];
+	  $results[NAME] =~ s/^\s*$// if defined $results[NAME];
+	  $results[NAME] =~ s/\d+\s*kDa\s*protein// if defined $results[NAME];
+	  $results[NAME] =~ s/\s*similar to .+// if defined $results[NAME];
+     }
 
      $results[NAME] ||= 'NO NAME';
      $results[NAME] =~ s/_HUMAN//;