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

minor bug

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@6575 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
martinp876 2014-09-19 18:33:13 +00:00
parent 8d1a67591e
commit 11394a611c
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
fhem/FHEM/98_HMinfo.pm
View File

@ -1734,10 +1734,20 @@ sub HMinfo_templateDef(@){#####################################################
return "$name already defined, delete it first" if($HMConfig::culHmTpl{$name}); return "$name already defined, delete it first" if($HMConfig::culHmTpl{$name});
return "insufficient parameter" if(@regs < 1); return "insufficient parameter" if(@regs < 1);
$HMConfig::culHmTpl{$name}{p} = "";
$HMConfig::culHmTpl{$name}{p} = join(" ",split(":",$param)) if($param ne "0"); my $paramNo;
if($param ne "0"){
my @p = split(":",$param);
$HMConfig::culHmTpl{$name}{p} = join(" ",@p) ;
$paramNo = scalar (@p);
}
else{
$HMConfig::culHmTpl{$name}{p} = "";
$paramNo = 0;
}
$HMConfig::culHmTpl{$name}{t} = $desc; $HMConfig::culHmTpl{$name}{t} = $desc;
my $paramNo = scalar (split(":",$param));
foreach (@regs){ foreach (@regs){
my ($r,$v)=split":",$_; my ($r,$v)=split":",$_;
if (!defined $v){ if (!defined $v){