[Bioperl-guts-l] bioperl-live/Bio/DB/GFF/Adaptor/dbi mysqlcmap.pm, 1.5, 1.6 oracle.pm, 1.7, 1.8

Scott Cain scain at pub.open-bio.org
Thu Feb 23 11:35:51 EST 2006


Update of /home/repository/bioperl/bioperl-live/Bio/DB/GFF/Adaptor/dbi
In directory pub.open-bio.org:/tmp/cvs-serv6443/dbi

Modified Files:
	mysqlcmap.pm oracle.pm 
Log Message:
changing search_notes method to allow wild cards to be passed in


Index: oracle.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/DB/GFF/Adaptor/dbi/oracle.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** oracle.pm	9 Dec 2005 12:17:58 -0000	1.7
--- oracle.pm	23 Feb 2006 16:35:49 -0000	1.8
***************
*** 869,872 ****
--- 869,874 ----
    my ($search_string,$limit) = @_;
  
+   $search_string =~ tr/*?/%_/d;
+ 
    my @words  = $search_string =~ /(\w+)/g;
    my $regex  = join '|', at words;

Index: mysqlcmap.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/DB/GFF/Adaptor/dbi/mysqlcmap.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** mysqlcmap.pm	5 Jul 2005 12:08:35 -0000	1.5
--- mysqlcmap.pm	23 Feb 2006 16:35:49 -0000	1.6
***************
*** 1066,1069 ****
--- 1066,1071 ----
    my ($search_string,$limit) = @_;
  
+   $search_string =~ tr/*?//d;
+ 
    my @words  = $search_string =~ /(\w+)/g;
    my $regex  = join '|', at words;



More information about the Bioperl-guts-l mailing list