Public/fhem-mirror
1
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-05-01 20:20:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

14_CUL_TX.pm: some further cases when modifiying the code (Forum #90003)

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@17102 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2018-08-08 05:34:42 +00:00
parent bef7f23687
commit 42dcc173dd
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
FHEM/14_CUL_TX.pm
View File

@ -38,8 +38,10 @@ CUL_TX_Define($$)
my $dp = $modules{CUL_TX}{defptr}; my $dp = $modules{CUL_TX}{defptr};
my $old = ($dp && $dp->{$a[2]} ? $dp->{$a[2]}{NAME} : ""); my $old = ($dp && $dp->{$a[2]} ? $dp->{$a[2]}{NAME} : "");
my $op = ($hash->{OLDDEF} ? "modify":"define"); my $op = ($hash->{OLDDEF} ? "modify":"define");
my $oc = ($hash->{OLDDEF} ? $hash->{CODE} : "");
return "Cannot $op $hash->{NAME} as the code $a[2] is already used by $old" return "Cannot $op $hash->{NAME} as the code $a[2] is already used by $old"
if($old); if($old && $oc ne $a[2]);
delete($modules{CUL_TX}{defptr}{$oc}) if($oc);
$hash->{CODE} = $a[2]; $hash->{CODE} = $a[2];
$hash->{corr} = ((int(@a) > 3) ? $a[3] : 0); $hash->{corr} = ((int(@a) > 3) ? $a[3] : 0);