make exact name matches case-insensitive

bioperl · Mar 9, 2012 · d3af015 · d3af015
1 parent a870026
commit d3af015
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Bio/DB/SeqFeature/Store/DBI/SQLite.pm b/Bio/DB/SeqFeature/Store/DBI/SQLite.pm
@@ -766,7 +766,7 @@ sub _name_sql {
   my $from  = "$name_table as n";
   my ($match,$string) = $self->_match_sql($name);
 
-  my $where = "n.id=$join AND n.name $match";
+  my $where = "n.id=$join AND lower(n.name) $match";
   $where   .= " AND n.display_name>0" unless $allow_aliases;
   return ($from,$where,'',$string);
 }