From 11394a611c8338075c87db27f64e6372c5edd314 Mon Sep 17 00:00:00 2001
From: martinp876 <>
Date: Fri, 19 Sep 2014 18:33:13 +0000
Subject: [PATCH] minor bug

git-svn-id: https://svn.fhem.de/fhem/trunk@6575 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_HMinfo.pm | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

diff --git a/fhem/FHEM/98_HMinfo.pm b/fhem/FHEM/98_HMinfo.pm
index 48b5015db..3758f6bff 100644
--- a/fhem/FHEM/98_HMinfo.pm
+++ b/fhem/FHEM/98_HMinfo.pm
@@ -1734,10 +1734,20 @@ sub HMinfo_templateDef(@){#####################################################
 
   return "$name already defined, delete it first" if($HMConfig::culHmTpl{$name});
   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;
-  my $paramNo = scalar (split(":",$param));
+  
   foreach (@regs){
     my ($r,$v)=split":",$_;
     if (!defined $v){