From: Scott C. <sco...@us...> - 2006-07-24 16:26:30
|
Update of /cvsroot/gmod/schema/chado/lib/Bio/GMOD/DB In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv5890 Modified Files: Adapter.pm Log Message: quieting warnings about the sorter table already existing Index: Adapter.pm =================================================================== RCS file: /cvsroot/gmod/schema/chado/lib/Bio/GMOD/DB/Adapter.pm,v retrieving revision 1.24 retrieving revision 1.25 diff -C2 -d -r1.24 -r1.25 *** Adapter.pm 21 Jul 2006 21:53:51 -0000 1.24 --- Adapter.pm 24 Jul 2006 16:26:24 -0000 1.25 *************** *** 2918,2922 **** my $self = shift; my $dbh = $self->dbh; ! $dbh->do("CREATE TABLE gff_sort_tmp ( refseq varchar(4000), --- 2918,2929 ---- my $self = shift; my $dbh = $self->dbh; ! ! #determine if the table already exists ! my $sth = $dbh->prepare("SELECT count(*) FROM pg_tables WHERE tablename='gff_sort_tmp'"); ! $sth->execute; ! my ($table_exists) = $sth->fetchrow_array; ! return if $table_exists; ! ! $dbh->do("CREATE TABLE gff_sort_tmp ( refseq varchar(4000), |