numberField without space

diff --git a/lib/H1/ZTEMSAN.pm b/lib/H1/ZTEMSAN.pm
index e1051ea..a8b5a74 100644 (file)
--- a/lib/H1/ZTEMSAN.pm
+++ b/lib/H1/ZTEMSAN.pm
@@ -42,6 +42,12 @@ sub parse {
                                $n2 =~ s/\(.+\)//;
                                $hash->{ $section . $n2 } = $v2;
                                warn "## $n2 = $v2\n";
+                       } elsif ( $v =~ s/(\d+)(\S+)\s*:\s*(\S*.*?)\s*$/$1/ ) { # numberField without space
+                               # strip second column
+                               my ($n2,$v2) = ($1,$2);
+                               $n2 =~ s/\(.+\)//;
+                               $hash->{ $section . $n2 } = $v2;
+                               warn "## $n2 = $v2\n";
                        }
                        $hash->{ $section . $n } = $v;
                        warn "## $n = $v\n";