Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

handle BioProject accessions okay (no version)

  • Loading branch information...
commit 92f629494687a5237dc1e3cb508d62e0b1c2e8b5 1 parent cf8e084
@hyphaltip hyphaltip authored
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 = ();
Please sign in to comment.
Something went wrong with that request. Please try again.