bugfix for duration (sub d)

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@3042 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
borisneubert
2013-04-07 16:16:21 +00:00
parent a994b959c3
commit 8030ceaf0e

View File

@@ -290,8 +290,7 @@ sub d {
my @c= split("P", $d);
$sign= -1 if($c[0] eq "-");
shift @c if($c[0] =~ m/[\+\-]/);
my ($dw,$dt)= split("T", $c[0]);
my ($dw,$dt)= split("T", $c[1]);
$dt="" unless defined($dt);
if($dw =~ m/(\d+)D$/) {
$t+= 86400*$1; # days