X-Git-Url: https://git.donarmstrong.com/?p=function2gene.git;a=blobdiff_plain;f=bin%2Fget_genecard_results;h=1b94f626c1f1bab04f51ffd9dfd68754aa375fd7;hp=ac38e29d6767e8cb13040eb2b591258f07edf5b2;hb=766ad5225a78970eef161db44b8ea86f3e37bbc9;hpb=af4fd770f221db1cec02393df378e079c0b9a8fc

diff --git a/bin/get_genecard_results b/bin/get_genecard_results
index ac38e29..1b94f62 100755
--- a/bin/get_genecard_results
+++ b/bin/get_genecard_results
@@ -121,6 +121,7 @@ while (<$terms>) {
      $mech->get($url);
      my $response = $mech->content();
      my @result_urls = $response =~ m#<a\s+target\=\'card\'\s+href=\"(carddisp\.pl\?[^\"]+)\"\s*>#sg;
+     @result_urls = grep {$_ !~ /gene=ENSG\d+\&/i} @result_urls;
      my $dir_name = eval qq("$options{name}") or die $@;
      if (not -d "$options{dir}/$dir_name") {
 	  mkdir("$options{dir}/$dir_name") or die "Unable to make directory $options{dir}/$dir_name $!";