From a3fbb5da9df566ace02e1a7b318f12ccc46d89ce Mon Sep 17 00:00:00 2001 From: rudolfkoenig Date: Mon, 21 Dec 2015 13:33:33 +0000 Subject: [PATCH] 10_ZWave.pm: show numeric values for config text (Forum #45899) git-svn-id: https://svn.fhem.de/fhem/trunk@10221 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/10_ZWave.pm | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/fhem/FHEM/10_ZWave.pm b/fhem/FHEM/10_ZWave.pm index 235d80252..80268e5ff 100755 --- a/fhem/FHEM/10_ZWave.pm +++ b/fhem/FHEM/10_ZWave.pm @@ -1524,7 +1524,7 @@ ZWave_configParseModel($;$) my ($cmd,$shortened) = ZWave_cleanString($h{label}, $h{index}); $cmdName = "config$cmd"; $h{Help} = ""; - $h{Help} .= "Full text for $cmdName is $h{label}
" if($shortened); + $h{Help} .= "Full text for $cmdName is: $h{label}
" if($shortened); $hash{$cmdName} = \%h; } @@ -3046,7 +3046,14 @@ ZWave_helpFn($$) return "" if(!$mc); my $h = $mc->{config}{$cmd}; return "" if(!$h || !$h->{Help}); - return "Help for $cmd:
".$h->{Help}; + $cmd .= " (numeric code $h->{index})" if(defined($h->{index})); + my $ret = "Help for $cmd:
".$h->{Help}; + + my $hi = $h->{Item}; + $ret .= "Possible values: ". + join(", ", map {"$_ ($hi->{$_})"} sort keys %{$hi})."
" + if($hi); + return $ret; } sub