set ignore correctly dependong on the mode

misc-scripts/xref_mapping/XrefMapper/rattus_norvegicus.pm

@@ -13,9 +13,12 @@ sub get_set_lists {
 }
 
 
+
 sub transcript_display_xref_sources {
+  my $self     = shift;
+  my $fullmode = shift;
 
-my @list = qw(RFAM
+  my @list = qw(RFAM
 	      miRBase
 	      RGD
 	      MGI
@@ -29,13 +32,19 @@ my @list = qw(RFAM
 
 
   my %ignore;
-  $ignore{"EntrezGene"}= 'FROM:RefSeq_[pd][en][pa].*_predicted';
+  
+  if(!$fullmode){
+    $ignore{"EntrezGene"}= 'FROM:RefSeq_[pd][en][pa].*_predicted';
+  }
+  else{
+    $ignore{"EntrezGene"} = 'select ox.object_xref_id from object_xref ox, dependent_xref dx, source s1, xref x1, source s2, xref x2 where ox.object_xref_id = dx.object_xref_id and dx.dependent_xref_id = x1.xref_id and x1.source_id = s1.source_id and s1.name = "EntrezGene" and x2.xref_id = dx.master_xref_id and x2.source_id = s2.source_id and (s2.name like "Refseq_dna_predicted" or s2.name like "RefSeq_peptide_predicted") and ox.ox_status = "DUMP_OUT"';
+    
+  }
   
   return [\@list,\%ignore];
-
+  
 }
 
-
 sub gene_description_filter_regexps {
 
   return ('^\(CLONE REM\d+\) ORF \(FRAGMENT\)\.*',