Skip to content
Snippets Groups Projects
Commit 016ded5e authored by Nick Langridge's avatar Nick Langridge
Browse files

commented variation specific code in dumpGene as no longer works

parent db8664dc
No related branches found
No related tags found
No related merge requests found
......@@ -394,11 +394,11 @@ WHERE
}
# SNP query
my $snp_sth = eval {
$dbh->prepare(
"select distinct(vf.variation_name) from $SNPDB.transcript_variation as tv, $SNPDB.variation_feature as vf where vf.variation_feature_id = tv.variation_feature_id and tv.transcript_stable_id in(?)"
);
};
# my $snp_sth = eval {
# $dbh->prepare(
#"select distinct(vf.variation_name) from $SNPDB.transcript_variation as tv, $SNPDB.variation_feature as vf where vf.variation_feature_id = tv.variation_feature_id and tv.transcript_stable_id in(?)"
# );
# };
my $haplotypes = $dbh->selectall_hashref(
"select gene_id from gene g, assembly_exception ae where
......@@ -517,12 +517,13 @@ g.seq_region_id=ae.seq_region_id and ae.exc_type='HAP'", [qw(gene_id)]
if ( $old{'gene_id'} != $gene_id ) {
if ( $old{'gene_id'} ) {
if ( $SNPDB && $DB eq 'core' ) {
my @transcript_stable_ids =
keys %{ $old{transcript_stable_ids} };
$snp_sth->execute("@transcript_stable_ids");
$old{snps} = $snp_sth->fetchall_arrayref;
}
# if ( $SNPDB && $DB eq 'core' ) {
# my @transcript_stable_ids =
# keys %{ $old{transcript_stable_ids} };
# $snp_sth->execute("@transcript_stable_ids");
# $old{snps} = $snp_sth->fetchall_arrayref;
# }
if ($want_species_orthologs) {
$old{orthologs} =
......@@ -643,11 +644,11 @@ g.seq_region_id=ae.seq_region_id and ae.exc_type='HAP'", [qw(gene_id)]
}
}
if ( $SNPDB && $DB eq 'core' ) {
my @transcript_stable_ids = keys %{ $old{transcript_stable_ids} };
$snp_sth->execute("@transcript_stable_ids");
$old{snps} = $snp_sth->fetchall_arrayref;
}
# if ( $SNPDB && $DB eq 'core' ) {
# my @transcript_stable_ids = keys %{ $old{transcript_stable_ids} };
# $snp_sth->execute("@transcript_stable_ids");
# $old{snps} = $snp_sth->fetchall_arrayref;
# }
if ($want_species_orthologs) {
$old{orthologs} = $ortholog_lookup->{ $old{'gene_stable_id'} };
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment