jsonlist: report error for typeless devices

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@4128 2b470e98-0d58-463d-a4d8-8e2adae1ed80

fhem/FHEM/98_JsonList.pm

@@ -149,6 +149,10 @@ CommandJsonList($$)
 
       my $p = $defs{$d};
       my $t = $p->{TYPE};
+      if(!$t) {
+        Log3 undef, 3, "JsonList: device ($d) without TYPE";
+        next;
+      }
       $t = $q if($q ne "");
 
       #$str .= sprintf("} ") if($t eq $lt);