From 4b32fb32b6b3fd2791b353039f1fdcc2a5a8e2f7 Mon Sep 17 00:00:00 2001
From: betateilchen <>
Date: Mon, 10 Mar 2014 21:03:45 +0000
Subject: [PATCH] 18_WBS.pm - improvements, described here
 http://forum.fhem.de/index.php/topic,21281.0.html

git-svn-id: https://svn.fhem.de/fhem/trunk@5195 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/contrib/WBS/18_WBS.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/fhem/contrib/WBS/18_WBS.pm b/fhem/contrib/WBS/18_WBS.pm
index b0a458225..fdecb80bc 100644
--- a/fhem/contrib/WBS/18_WBS.pm
+++ b/fhem/contrib/WBS/18_WBS.pm
@@ -67,7 +67,7 @@ sub WBS_Define($)
 {
   # define <NAME> WBS TYPE CODE
   my ($self, $defs) = @_;
-  Log 0, "WBS|DEFINE: " . Dumper(@_);
+#  Log 0, "WBS|DEFINE: " . Dumper(@_);
   my @a = split(/ /, $defs);
   return "WBS|Define|ERROR: Unknown argument count " . int(@a) . " , usage define <NAME> WBS TYPE CODE"  if(int(@a) != 4);
   my $mod = $a[1];
@@ -131,7 +131,7 @@ sub WBS_Parse($$)
   my $fc = uc(substr($reading,0,1));
   $wbs->{STATE} = "$fc: $value | " . TimeNow();
   # Changed
-  $wbs->{CHANGED}[0] = "$reading:$value";
+  $wbs->{CHANGED}[0] = "$reading: $value";
   return $wbs_name;
 }
 ################################################################################