Skip to content
Snippets Groups Projects
Unverified Commit 1cdceaa5 authored by ens-bwalts's avatar ens-bwalts Committed by GitHub
Browse files

Merge pull request #114 from james-monkeyshines/feature/remove_accession_prefix

Accession in GFF3/GTF headers
parents adf6e4b0 72420423
No related branches found
No related tags found
No related merge requests found
...@@ -342,10 +342,7 @@ sub print_main_header { ...@@ -342,10 +342,7 @@ sub print_main_header {
# Get accession and only print if it is there # Get accession and only print if it is there
my $accession = $gc->get_accession(); my $accession = $gc->get_accession();
if($accession) { if($accession) {
my $accession_source = $mc->single_value_by_key('assembly.web_accession_source'); my $string = "#!genome-build-accession $accession";
my $string = "#!genome-build-accession ";
$string .= "$accession_source:" if $accession_source;
$string .= "$accession";
print $fh "$string\n"; print $fh "$string\n";
} }
......
...@@ -77,14 +77,9 @@ sub print_main_header { ...@@ -77,14 +77,9 @@ sub print_main_header {
# Get accession and only print if it is there # Get accession and only print if it is there
my $accession = $gc->get_accession(); my $accession = $gc->get_accession();
if($accession) { if($accession) {
my $accession_source = $mc->single_value_by_key('assembly.web_accession_source'); my $string = "#!genome-build-accession $accession";
my $string = "#!genome-build-accession ";
$string .= "$accession_source:" if $accession_source;
$string .= "$accession";
print $fh "$string\n"; print $fh "$string\n";
#my $accession_source = $mc->single_value_by_key('assembly.web_accession_source');
#print $fh "#!genome-build-accession ${accession_source}:${accession}\n";
} }
# Genebuild last updated # Genebuild last updated
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment