FHEM/mod-AutoShuttersControl
1
0
Fork 0
Code Issues 12 Pull Requests Releases 9 Wiki Activity

change scalar

Browse Source
This commit is contained in:
Marko Oldenburg 2019-04-05 08:07:26 +02:00
parent a38e108c2f
commit de8f7dc242
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
73_AutoShuttersControl.pm
View File

@ -42,7 +42,7 @@ use strict;
use warnings; use warnings;
use FHEM::Meta; use FHEM::Meta;
my $version = '0.4.0.11beta57'; my $version = '0.4.0.11beta58';
sub AutoShuttersControl_Initialize($) { sub AutoShuttersControl_Initialize($) {
my ($hash) = @_; my ($hash) = @_;
@ -2732,7 +2732,7 @@ sub CheckIfShuttersWindowRecOpen($) {
} }
sub makeReadingName($) { sub makeReadingName($) {
my ($name) = @_; my ($rname) = @_;
my %charHash = ( my %charHash = (
"ä" => "ae", "ä" => "ae",
"Ä" => "Ae", "Ä" => "Ae",
@ -2744,10 +2744,10 @@ sub makeReadingName($) {
); );
my $charHashkeys = join( "|", keys(%charHash) ); my $charHashkeys = join( "|", keys(%charHash) );
return $name if ( $name =~ m/^\./ ); return $rname if ( $rname =~ m/^\./ );
$name =~ s/($charHashkeys)/$charHash{$1}/gi; $rname =~ s/($charHashkeys)/$charHash{$1}/gi;
$name =~ s/[^a-z0-9._\-\/]/_/gi; $rname =~ s/[^a-z0-9._\-\/]/_/gi;
return $name; return $rname;
} }
sub TimeMin2Sec($) { sub TimeMin2Sec($) {