From d1a3a2e6c1cf328e50b2ee9cd9506f4973525023 Mon Sep 17 00:00:00 2001 From: Anja Thormann Date: Thu, 22 Apr 2021 18:06:03 +0100 Subject: [PATCH] replace dash in var name (#977) --- modules/Bio/EnsEMBL/VEP/Stats.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/modules/Bio/EnsEMBL/VEP/Stats.pm b/modules/Bio/EnsEMBL/VEP/Stats.pm index 901a34b04..a16a4b374 100644 --- a/modules/Bio/EnsEMBL/VEP/Stats.pm +++ b/modules/Bio/EnsEMBL/VEP/Stats.pm @@ -578,8 +578,8 @@ sub generate_chart_data { foreach my $chr(sort {($a !~ /^\d+$/ || $b !~ /^\d+/ || $a =~ /^\d\w/ || $b =~ /^\d\w/ ) ? $a cmp $b : $a <=> $b} keys %{$stats->{chr}}) { my $chr_id = $chr; - $chr_id =~ s/\./\_/g; - + $chr_id =~ s/\.|-/\_/g; + push @charts, { id => 'chr_'.$chr_id, title => 'Distribution of variants on chromosome '.$chr, @@ -1089,4 +1089,4 @@ SHTML return $html; } -1; \ No newline at end of file +1;