Browse files

handle BioProject accessions okay (no version)

  • Loading branch information...
1 parent cf8e084 commit 92f629494687a5237dc1e3cb508d62e0b1c2e8b5 @hyphaltip hyphaltip committed Sep 12, 2013
Showing with 8 additions and 0 deletions.
  1. +8 −0 Bio/SeqIO/genbank.pm
View
8 Bio/SeqIO/genbank.pm
@@ -592,6 +592,14 @@ sub next_seq {
-version => $version,
-database => $db || 'GenBank',
-tagname => 'dblink'));
+ } elsif ( $dbsource =~ /^(\S*?):?\s*accession\s+(\S+)/ ) {
+ my ($db,$id) = ($1,$2);
+ $annotation->add_Annotation
+ ('dblink',
+ Bio::Annotation::DBLink->new
+ (-primary_id => $id,
+ -database => $db || 'GenBank',
+ -tagname => 'dblink'));
} elsif ( $dbsource =~ /(\S+)([\.:])\s*(\S+)/ ) {
my ($db, $version);
my @ids = ();

0 comments on commit 92f6294

Please sign in to comment.