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

Senduran Balasubramaniam sendu at dev.open-bio.org
Wed Jan 31 09:49:04 EST 2007


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

Modified Files:
	mysql.pm 
Log Message:
when Store::delete() is working on multiple features, fix here allows all those features to be deleted

Index: mysql.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/DB/SeqFeature/Store/DBI/mysql.pm,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -d -r1.27 -r1.28
*** mysql.pm	23 Jan 2007 20:04:37 -0000	1.27
--- mysql.pm	31 Jan 2007 14:49:02 -0000	1.28
***************
*** 1113,1119 ****
    my $key  = shift;
    my $dbh = $self->dbh;
    for my $table ($self->all_tables) {
!     $dbh->do("DELETE FROM $table WHERE id=$key");
    }
  }
  
--- 1113,1121 ----
    my $key  = shift;
    my $dbh = $self->dbh;
+   my $success = 0;
    for my $table ($self->all_tables) {
!     $success += $dbh->do("DELETE FROM $table WHERE id=$key");
    }
+   return $success;
  }
  



More information about the Bioperl-guts-l mailing list