From 0c8b66e869ab3da84d483017800ed4d90d0ec8c2 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Sat, 29 Feb 2020 09:14:28 +0000
Subject: [PATCH] fhem.pl: Fix for json2nameValue multi Prefix (Forum #108828)

git-svn-id: https://svn.fhem.de/fhem/trunk@21311 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/fhem.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index ed65b8a7b..174520d10 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -5167,6 +5167,7 @@ json2nameValue($;$$)
   {
     my ($ret,$map,$name,$val,$in,$prefix,$firstLevel) = @_;
     my $err; 
+    $prefix="" if(!$firstLevel);
 
     if($val =~ m/^"/) {
       ($err, $val, $in) = lStr($val);
@@ -5197,8 +5198,9 @@ json2nameValue($;$$)
       my $idx = 1;
       $val =~ s/^\s*//;
       while($val) {
-        ($err,$val) = eObj($ret, $map, $firstLevel ? $idx : $name."_$idx",
-                           $val, $val, $prefix);
+        ($err,$val) = eObj($ret, $map, 
+                                $firstLevel ? "$prefix$idx" : $name."_$idx",
+                                $val, $val, $prefix);
         return ($err,undef) if($err);
         $val =~ s/^\s*,\s*//;
         $val =~ s/\s*$//;