diff --git a/Scripts/export_annotated_embl_from_assembly.pl b/Scripts/export_annotated_embl_from_assembly.pl old mode 100644 new mode 100755 diff --git a/Scripts/export_annotated_embl_from_plant_or_bacteria.pl b/Scripts/export_annotated_embl_from_plant_or_bacteria.pl old mode 100644 new mode 100755 index 02e435b2..debbb71f --- 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;