mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

10_MQTT_DEVICE.pm: publishSet patch from hexenmeister (Forum #648596)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@14520 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
eisler
2017-06-15 20:36:24 +00:00
parent 2b13f6a6ac
commit 251b92dfc6
2 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
fhem/CHANGED
View File

@@ -1,5 +1,6 @@
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide. # Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
# Do not insert empty lines here, update check depends on it. # Do not insert empty lines here, update check depends on it.
- feature: 10_MQTT_DEVICE.pm: publishSet patch (Forum #648596)
- feature: 01_FHEMWEB.pm: selectnumbers widget modifier (Forum #73188) - feature: 01_FHEMWEB.pm: selectnumbers widget modifier (Forum #73188)
- feature: 98_structure.pm: add evaluateSetResult attribute (Forum #73113) - feature: 98_structure.pm: add evaluateSetResult attribute (Forum #73113)
- feature: ESPEasy: improved defineFn if bridge port is missing, docu update - feature: ESPEasy: improved defineFn if bridge port is missing, docu update

2
fhem/FHEM/10_MQTT_DEVICE.pm
View File

@@ -83,7 +83,7 @@ sub Set($$$@) {
my ($hash,$name,$command,@values) = @_; my ($hash,$name,$command,@values) = @_;
return "Need at least one parameters" unless defined $command; return "Need at least one parameters" unless defined $command;
return "Unknown argument $command, choose one of " . join(" ", map {$hash->{sets}->{$_} eq "" ? $_ : "$_:".$hash->{sets}->{$_}} sort keys %{$hash->{sets}}) return "Unknown argument $command, choose one of " . join(" ", map {$hash->{sets}->{$_} eq "" ? $_ : "$_:".$hash->{sets}->{$_}} sort keys %{$hash->{sets}})
if(!defined($hash->{sets}->{$command})); if(!defined($hash->{sets}->{$command}) && @values);
my $msgid; my $msgid;
if (@values) { if (@values) {
my $value = join " ",@values; my $value = join " ",@values;