allow underscore in xml-db names

diff --git a/xml-db/get.pl b/xml-db/get.pl
index 899a21e868079f17f1c4eb27dd86600bd85a71e5..7abfefde5af98e72e1a35c5088298ad84cb8d8bd 100755 (executable)
--- a/xml-db/get.pl
+++ b/xml-db/get.pl
@@ -121,9 +121,9 @@ foreach my $req (@request) {
 
 
   $slice = undef;
-  if ($name =~ m/^([a-zA-Z0-9]+)\.(\d+)$/) {
+  if ($name =~ m/^([a-zA-Z0-9\_]+)\.(\d+)$/) {
     $name = $1; $slice = $2;
-  } elsif ($name =~ m/^([a-zA-Z0-9]+)$/) {
+  } elsif ($name =~ m/^([a-zA-Z0-9\_]+)$/) {
     $name = $1; $slice = undef;
   } else {
     die "Could not parse name $name \n";