[Bioperl-guts-l] bioperl-live/Bio/DB/GFF/Adaptor/dbi mysql.pm, 1.60, 1.61

[Lincoln Stein]

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

Modified Files:
	mysql.pm 
Log Message:
back to full text search method


Index: mysql.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/DB/GFF/Adaptor/dbi/mysql.pm,v
retrieving revision 1.60
retrieving revision 1.61
diff -C2 -d -r1.60 -r1.61
*** mysql.pm	25 Aug 2005 21:06:41 -0000	1.60
--- mysql.pm	13 Sep 2005 14:01:59 -0000	1.61
***************
*** 400,418 ****
  =cut
  
! # sub search_notes {
! #   my $self = shift;
! #   my ($search_string,$limit) = @_;
! #   my $query = FULLTEXTSEARCH;
! #   $query .= " limit $limit" if defined $limit;
! #   my $sth = $self->dbh->do_query($query,$search_string,$search_string);
! #   my @results;
! #   while (my ($class,$name,$note,$relevance) = $sth->fetchrow_array) {
! #      next unless $class && $name;    # sorry, ignore NULL objects
! #      $relevance = sprintf("%.2f",$relevance);  # trim long floats
! #      my $featname = Bio::DB::GFF::Featname->new($class=>$name);
! #      push @results,[$featname,$note,$relevance];
! #   }
! #   @results;
! # }
  
  
--- 400,418 ----
  =cut
  
! sub search_notes {
!   my $self = shift;
!   my ($search_string,$limit) = @_;
!   my $query = FULLTEXTSEARCH;
!   $query .= " limit $limit" if defined $limit;
!   my $sth = $self->dbh->do_query($query,$search_string,$search_string);
!   my @results;
!   while (my ($class,$name,$note,$relevance) = $sth->fetchrow_array) {
!      next unless $class && $name;    # sorry, ignore NULL objects
!      $relevance = sprintf("%.2f",$relevance);  # trim long floats
!      my $featname = Bio::DB::GFF::Featname->new($class=>$name);
!      push @results,[$featname,$note,$relevance];
!   }
!   @results;
! }