Raw content of SeqStoreConverter::HomoSapiens use strict; use warnings; package SeqStoreConverter::HomoSapiens; use SeqStoreConverter::BasicConverter; use vars qw(@ISA); @ISA = qw(SeqStoreConverter::BasicConverter); sub create_attribs { my $self = shift; # # Human clones need their htg phase information copied # my $source = $self->source(); my $target = $self->target(); my $dbh = $self->dbh(); $self->SUPER::create_attribs(); $self->debug("HomoSapiens specific: Creating HTG Phase seq_region attribs"); $dbh->do ("INSERT INTO $target.attrib_type( code, name, description ) " . "VALUES ('htg_phase', 'HTG Phase', 'High Throughput Genome Phase')"); $dbh->do ("INSERT INTO $target.seq_region_attrib( seq_region_id, attrib_type_id, " . "value) " . "SELECT tmp_cln.new_id, attrib_type.attrib_type_id, cln.htg_phase " . "FROM $target.tmp_cln_map tmp_cln, $target.attrib_type attrib_type, " . " $source.clone cln " . "WHERE cln.clone_id = tmp_cln.old_id " . "AND attrib_type.code = 'htg_phase'"); return; } 1;