Changed the plant etc script to add versioning

s-andrews · Nov 3, 2017 · 67ab25b · 67ab25b
1 parent 0a22e93
commit 67ab25b
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/Scripts/export_annotated_embl_from_assembly.pl b/Scripts/export_annotated_embl_from_assembly.pl
diff --git a/Scripts/export_annotated_embl_from_plant_or_bacteria.pl b/Scripts/export_annotated_embl_from_plant_or_bacteria.pl
@@ -31,12 +31,15 @@
 use Bio::Location::Split;
 use Bio::Location::Simple;
 use Bio::EnsEMBL::DBSQL::OntologyDBAdaptor;
+use Bio::EnsEMBL::ApiVersion;
 
 
 $|++;
 
 system("clear") == 0 or warn "Couldn't clear screen";
 
+my $version = software_version();
+
 my $registry = load_registry();
 
 my $GO_adapter =   $registry->get_adaptor( 'Multi', 'Ontology', 'GOTerm' );
@@ -177,6 +180,9 @@ sub process_genome {
   warn "Processing genome ".$db_adapter->species()."\n";
 
   my $assembly = $db_adapter->get_adaptor('coordsystem')->fetch_all->[0]->version();
+
+  $assembly .= "_v$version";
+
   my $species = $db_adapter->species();
 
   my $readable_species = $species;