cleaning up warn statements

GMOD · Oct 14, 2006 · 8970d20 · 8970d20
1 parent 1ba5e1d
commit 8970d20
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/lib/Bio/DB/Das/Chado/Segment/Feature.pm b/lib/Bio/DB/Das/Chado/Segment/Feature.pm
@@ -880,11 +880,13 @@ sub sub_SeqFeature {
       $typewhere = " and child.type_id in (". join(',',@id_list)  .")" ;
 
       #warn $typewhere;
+
+      warn "type:@type, type_id:@id_list" if DEBUG;
     }
 
     my $handle = $self->factory->dbh();
 
-    $self->factory->dbh->trace(2) if DEBUG;
+    #$self->factory->dbh->trace(2) if DEBUG;
 
     my $partof =  $self->factory->name2term('part_of');
     my $derivesfrom = $self->factory->name2term('derives_from');