[Bioperl-guts-l] bioperl-live/Bio/DB/SeqFeature/Store/DBI mysql.pm, 1.26, 1.27

Lincoln Stein lstein at dev.open-bio.org
Tue Jan 23 15:04:39 EST 2007


Update of /home/repository/bioperl/bioperl-live/Bio/DB/SeqFeature/Store/DBI
In directory dev.open-bio.org:/tmp/cvs-serv25888/Bio/DB/SeqFeature/Store/DBI

Modified Files:
	mysql.pm 
Log Message:
use Bio::DB::SeqFeatureI methods rather than generic methods

Index: mysql.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/DB/SeqFeature/Store/DBI/mysql.pm,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -d -r1.26 -r1.27
*** mysql.pm	7 Nov 2006 19:52:42 -0000	1.26
--- mysql.pm	23 Jan 2007 20:04:37 -0000	1.27
***************
*** 1298,1304 ****
  
    my $sth = $self->_prepare("INSERT INTO $attribute (id,attribute_id,attribute_value) VALUES (?,?,?)");
!   for my $tag ($obj->all_tags) {
      my $tagid = $self->_attributeid($tag);
!     for my $value ($obj->each_tag_value($tag)) {
        $sth->execute($id,$tagid,$value) or $self->throw($sth->errstr);
      }
--- 1298,1304 ----
  
    my $sth = $self->_prepare("INSERT INTO $attribute (id,attribute_id,attribute_value) VALUES (?,?,?)");
!   for my $tag ($obj->get_all_tags) {
      my $tagid = $self->_attributeid($tag);
!     for my $value ($obj->get_tag_values($tag)) {
        $sth->execute($id,$tagid,$value) or $self->throw($sth->errstr);
      }



More information about the Bioperl-guts-l mailing list