set does not return a value any more

made state setting compliant with guidelines

git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@2572 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
borisneubert
2013-01-26 21:46:29 +00:00
parent 1b352f7681
commit cd89d72d18

View File

@@ -96,14 +96,20 @@ ECMDDevice_Changed($$$)
{
my ($hash, $cmd, $value)= @_;
readingsSingleUpdate($hash, $cmd, $value, 1);
$hash->{STATE} = "$cmd $value";
readingsBeginUpdate($hash);
readingsBulkUpdate($hash, $cmd, $value, 1) if(defined($value));
my $state= $cmd;
$state.= " $value" if(defined($value));
readingsBulkUpdate($hash, "state", $state, 0);
readingsEndUpdate($hash, 1);
my $name= $hash->{NAME};
Log GetLogLevel($name, 4), "ECMDDevice $name $cmd: $value";
Log GetLogLevel($name, 4), "ECMDDevice $name $state";
return $hash->{STATE};
return $state;
}
@@ -220,9 +226,8 @@ ECMDDevice_Set($@)
$v= ECMDDevice_PostProc($hash, $postproc, $v);
# $v= join(" ", @a) if($params);
return ECMDDevice_Changed($hash, $cmdname, $v);
ECMDDevice_Changed($hash, $cmdname, $v); # was: return ECMDDevice_Changed($hash, $cmdname, $v);
return undef;
}