FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-20 19:36:02 +00:00
Code Issues Releases Wiki Activity

70_PIONEERAVR: fix for inputslist

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@17871 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
50watt 2018-11-30 20:35:25 +00:00
parent f18932e4f5
commit e263006ee5
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fhem/FHEM/70_PIONEERAVR.pm
View File

@ -274,12 +274,12 @@ sub PIONEERAVR_Define($$) {
$inputNr = sprintf '%02d', $i; $inputNr = sprintf '%02d', $i;
$inputindex = "PIONEERAVR_InputAlias_".$inputNr; $inputindex = "PIONEERAVR_InputAlias_".$inputNr;
my ($err, $data) = getKeyValue($inputindex); my ($err, $data) = getKeyValue($inputindex);
if (!defined $err) { if ((!defined $err) && ($data ne '')) {
$hash->{helper}{INPUTNAMES}->{$inputNr}{aliasName} = $data; $hash->{helper}{INPUTNAMES}->{$inputNr}{aliasName} = $data;
}; };
$inputindex = "PIONEERAVR_InputEnabled_".$inputNr; $inputindex = "PIONEERAVR_InputEnabled_".$inputNr;
my ($err, $data) = getKeyValue($inputindex); my ($err, $data) = getKeyValue($inputindex);
if (!defined $err) { if ((!defined $err) && ($data ne '')) {
$hash->{helper}{INPUTNAMES}->{$inputNr}{enabled} = $data; $hash->{helper}{INPUTNAMES}->{$inputNr}{enabled} = $data;
}; };
undef $err; undef $err;
@ -2318,7 +2318,7 @@ sub PIONEERAVR_Read($)
# 14char -> name of the input # 14char -> name of the input
} elsif ( $line=~ m/^RGB(\d\d)(\d)(.*)/ ) { } elsif ( $line=~ m/^RGB(\d\d)(\d)(.*)/ ) {
my $inputNr = $1; my $inputNr = $1;
my $isAlias = $2; #1: aliasName; 0: Standard (predefined) name my $isAlias = $2; #1: sy; 0: Standard (predefined) name
Log3 $hash, 5, "PIONEERAVR $name: ".dq( $line ) ." interpreted as: Name for InputNr: $inputNr is ".dq( $3 ); Log3 $hash, 5, "PIONEERAVR $name: ".dq( $line ) ." interpreted as: Name for InputNr: $inputNr is ".dq( $3 );
# remove non alnum # remove non alnum
$line =~ s/[^a-zA-Z 0-9]/ /g; $line =~ s/[^a-zA-Z 0-9]/ /g;