make sure there is a species set

924d9559 · Ian Longden · 6923f410 · 924d9559
Commit 924d9559 authored Feb 16, 2010 by Ian Longden
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 1 deletion

misc-scripts/xref_mapping/XrefMapper/SubmitMapper.pm misc-scripts/xref_mapping/XrefMapper/SubmitMapper.pm +6 -1

No files found.
--- a/misc-scripts/xref_mapping/XrefMapper/SubmitMapper.pm
+++ b/misc-scripts/xref_mapping/XrefMapper/SubmitMapper.pm
@@ -167,7 +167,12 @@ sub dump_xref{
    $k++;
    $method[$k] = shift @$list;
    my $rest = shift @$list;
-    $species[$k] = $$rest[0];
+    if($$rest[0] eq "*"){
+      $species[$k] = $self->mapper->core->species;
+    }
+    else{
+      $species[$k] = $$rest[0];
+    }
    $sources[$k] = $$rest[1];
    if($sources[$k] eq "*"){
      $all = $k;