Skip Menu |

This queue is for tickets about the bioperl CPAN distribution.

Report information
The Basics
Id: 44536
Status: resolved
Priority: 0/
Queue: bioperl

Owner: cjfields [...]
Requestors: gresham [...]

Bug Information
Severity: (no value)
Broken in: (no value)
Fixed in: (no value)

Subject: BioPerl, NCBI Eutilities genbank format
Date: Tue, 24 Mar 2009 16:02:15 -0500
To: <bug-bioperl [...]>
From: "Cathy Gresham" <gresham [...]>
Download (untitled) / with headers
text/plain 1.1k
BioPerl version 1.6.0 Perl version 5.8.8 Linux Suse version 10 sp2 Noticed that the genbank format in BioPerl was not returning all the DBSOURCES. especially the xrefs (non-sequence databases): my @db_links=(); my $collection = $seq->annotation; for my $dblink ( $collection->get_Annotations('dblink')) { # my $temp_link = sprintf("%s:%s",$dblink->database,$dblink->primary_id); my $temp_link = $dblink->database . ":" . $dblink->primary_id; push (@db_links,$temp_link); } Looked in saw where it was only going to return them if the DBSOURCE had an initial line of swissprot: the line I had was UniProtKB: I added the following lines idb:/usr/lib/perl5/site_perl/5.8.8/Bio/SeqIO # diff 463,465c463 < if (($dbsource =~ s/swissprot:\s+locus\s+(\S+)\,.+\n// ) || < ($dbsource =~ s/UniProtKB:\s+locus\s+(\S+)\,.+\n// ) || < ($dbsource =~ s/UniProt:\s+locus\s+(\S+)\,.+\n// )) { --- Show quoted text
> if( $dbsource =~ s/swissprot:\s+locus\s+(\S+)\,.+\n// ) {
seems to be returning the values now. Cathy
This is now fixed in the BioPerl svn main trunk and will be in the 1.6.1 release. Thanks!

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to