Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

another minor fix to accomodate update wormbase methods. Scott: not-m…

…ission critical
  • Loading branch information...
commit 9d14358f08ebdbf51a0a6145ea5249adc9fb5d02 1 parent cabb471
@tharris tharris authored
Showing with 7 additions and 4 deletions.
  1. +7 −4 bin/process_wormbase.PLS
View
11 bin/process_wormbase.PLS
@@ -185,10 +185,13 @@ sub get_genbank {
my ($db,$hash) = @_; # hash keys are cosmid names, values are genbank accessions (1 to 1)
my @cosmids = $db->fetch(-query=>'find Genome_Sequence Database',-filltag=>'Database');
for my $cosmid (@cosmids) {
- my ($database,undef,$accession) = $cosmid->Database(1)->row;
- next unless $accession;
- next unless $namespace eq 'NDB_AC';
- $hash->{$cosmid} = $accession;
+ my @dbs = $cosmid->Database;
+ foreach (@dbs) {
+ foreach my $col ($_->col) {
+ next unless $col eq 'NDB_AC';
+ $hash->{$cosmid} = $col->right;
+ }
+ }
}
}
Please sign in to comment.
Something went wrong with that request. Please try again.