[Bioperl-guts-l] bioperl commit

[Lincoln Stein]

Mon Feb 17 21:30:36 EST 2003
Update of /home/repository/bioperl/bioperl-live/Bio/DB/Flat/BDB
In directory dev:/tmp/cvs-serv981/Bio/DB/Flat/BDB

Modified Files:
	embl.pm 
Log Message:
fixed multiple feature inconsistencies between the bdb and binary search versions of the flat databases
bioperl-live/Bio/DB/Flat/BDB embl.pm,1.5,1.6
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/DB/Flat/BDB/embl.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- /tmp/T05_aGbc	2003-02-17 21:30:36.800002718 -0500
+++ /tmp/T16_aGbc	2003-02-17 21:30:36.800002718 -0500
@@ -77,9 +77,12 @@
 
   my $display_id = $seq->display_id;
   my $accession  = $seq->accession_number;
+  my $version    = $seq->seq_version;
+
   my %ids;
   $ids{ID}       = $display_id;
   $ids{ACC}      = $accession   if defined $accession;
+  $ids{VERSION}  = $version     if defined $version;
   return \%ids;
 }
 
@@ -88,7 +91,7 @@
 }
 
 sub default_secondary_namespaces {
-  return qw(ACC);
+  return qw(ACC VERSION);
 }
 
 sub default_file_format { "embl" }