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;