Raw content of SeqStoreConverter::HomoSapiens
<![CDATA[
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;
]]>