From 8030ceaf0eeaa6e88146c891e33cd7a890fe6ce6 Mon Sep 17 00:00:00 2001
From: borisneubert <borisneubert@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sun, 7 Apr 2013 16:16:21 +0000
Subject: [PATCH] bugfix for duration (sub d)

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@3042 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/57_Calendar.pm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/fhem/FHEM/57_Calendar.pm b/fhem/FHEM/57_Calendar.pm
index d70ca3fac..9e6a67b7e 100644
--- a/fhem/FHEM/57_Calendar.pm
+++ b/fhem/FHEM/57_Calendar.pm
@@ -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