diff --git a/misc-scripts/protein_match/maps2db.pl b/misc-scripts/protein_match/maps2db.pl index 4c66120edc55fd3ef6730888a03c573e335b7092..a6f4693d642954e4b428db981447f71d7b1d930f 100644 --- a/misc-scripts/protein_match/maps2db.pl +++ b/misc-scripts/protein_match/maps2db.pl @@ -316,9 +316,23 @@ if ($organism eq "drosophila") { $sth->execute(); while (my $trans_id = $sth->fetchrow) { -# if (! defined $seen{$trans_id}) { -# $seen{$trans_id} = 1; -# } + + if ($seen{$cg} != 1) { + my $extdb = "drosophila_gene_id"; + my $dbentry = Bio::EnsEMBL::DBEntry->new + ( -adaptor => $adaptor, + -primary_id => $cg, + -display_id => $cg, + -version => 1, + -release => 1, + -dbname => $extdb ); + $dbentry->status("KNOWNXREF"); + if($trans_id == 0){ + die "have no translation_id $!"; + } + $adaptor->store($dbentry,$trans_id,"Translation"); + $seen{$trans_id} = 1; + } if ($trans_id) { #Create a new dbentry object @@ -329,7 +343,7 @@ if ($organism eq "drosophila") { -version => 1, -release => 1, -dbname => $extdb ); - $dbentry->status("XREF"); + $dbentry->status("KNOWNXREF"); if($trans_id == 0){ die "have no translation_id $!"; } @@ -339,6 +353,14 @@ if ($organism eq "drosophila") { } +} + +if ($organism eq "drosophila") { + my $query = "select distinct(stable_id) from gene_stable_id"; + my $sth = $db->prepare($query); + + + } if ($organism eq "elegans") {