Skip to content
Snippets Groups Projects
Commit 00afa0e2 authored by Graham McVicker's avatar Graham McVicker
Browse files

updated for slightly changed RGD dumps

parent dbea1d3a
No related branches found
No related tags found
No related merge requests found
......@@ -32,7 +32,6 @@ my $dsn = "DBI:mysql:host=$host;dbname=$dbname";
if( $port ) {
$dsn .= ";port=$port";
}
my $db = DBI->connect( $dsn, $user, $pass );
......@@ -68,7 +67,7 @@ my $qtl_syn_id = 0;
QTL:
for my $qtl ( @all_qtl ) {
my ($qtl_rgd_id, $qtl_symbol,$qtl_name,
my ($qtl_rgd_id, $species, $qtl_symbol,$qtl_name,
$peak_offset, $chromosome, $lod_score, $p_value, $variance,
$fmark1_rgd_id, $fmark1_symbol, $fmark2_rgd_id, $fmark2_symbol,
$pmark_rgd_id, $pmark_symbol, $trait_name, $subtrait_name,
......@@ -76,6 +75,12 @@ for my $qtl ( @all_qtl ) {
$uncurated_ref_pubmed_id, $ratmap_id, $locus_link_id, @other) =
@$qtl;
if(!$qtl_name) {
debug("QTL $qtl_rgd_id has no name, discarding");
next QTL;
}
my $fmark1_id = $rgd_ens_map{$fmark1_rgd_id};
my $fmark2_id = $rgd_ens_map{$fmark2_rgd_id};
my $pmark_id = $rgd_ens_map{$pmark_rgd_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