Fixing filter when value is hash and contain text and number

Ensembl · Aug 9, 2024 · 7ce6a4c · 7ce6a4c
1 parent 9ffc8fd
commit 7ce6a4c
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/modules/Bio/EnsEMBL/VEP/FilterSet.pm b/modules/Bio/EnsEMBL/VEP/FilterSet.pm
@@ -591,10 +591,18 @@ sub get_input {
 
     my ($text, $num) = ($1, $2);
 
-    if($num ne '') {
+    if($num ne "") {
+      ## Value can also be a HASH, we pick a key to make it scalar
+      ## Assumes that all the values are of similar format
+      if (ref $value eq "HASH") {
+        $value = (keys %{$value})[0];
+      }
       if($value && $value =~ /^[\-\d\.e]+$/) {
         $input = $text =~ /^\-?\d+\.?\d*(e\-?\d+)?$/ ? $text : $num;
       }
+      elsif($value =~ /([\w\.\-]+)?\:?\(?([\-\d\.e]*)\)?/) {
+        return $input;
+      }
       else {
         $input = $text;
       }