From 75a932a7ea5c0c681f99ee860fcdbc85505c2784 Mon Sep 17 00:00:00 2001
From: nasseeder1 <nasseeder1@users.noreply.github.com>
Date: Fri, 15 Jul 2022 18:56:52 +0000
Subject: [PATCH] 57_SSCal: contrib Test

git-svn-id: https://svn.fhem.de/fhem/trunk@26232 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/contrib/DS_Starter/57_SSCal.pm | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/fhem/contrib/DS_Starter/57_SSCal.pm b/fhem/contrib/DS_Starter/57_SSCal.pm
index dbb4cf9f1..8cc3f3bca 100644
--- a/fhem/contrib/DS_Starter/57_SSCal.pm
+++ b/fhem/contrib/DS_Starter/57_SSCal.pm
@@ -1,5 +1,5 @@
 ########################################################################################################################
-# $Id: 57_SSCal.pm 23365 2020-12-16 14:40:38Z DS_Starter $
+# $Id: 57_SSCal.pm 24736 2021-07-12 15:43:19Z DS_Starter $
 #########################################################################################################################
 #       57_SSCal.pm
 #
@@ -1561,10 +1561,10 @@ return;
 #                    Extrahiert empfangene Kalendertermine (Events)
 #############################################################################################
 sub extractEventlist {                                    ## no critic 'complexity'
-  my ($name) = @_;
-  my $hash   = $defs{$name};
-  my $data   = delete $hash->{eventlist};                 # zentrales Eventhash löschen !
-  my $am     = AttrVal($name, "asyncMode", 0);
+  my $name = shift;
+  my $hash = $defs{$name};
+  my $data = delete $hash->{eventlist};                 # zentrales Eventhash löschen !
+  my $am   = AttrVal($name, "asyncMode", 0);
   
   my ($tz,$bdate,$btime,$bts,$edate,$etime,$ets,$ci,$bi,$ei,$startEndDiff,$excl,$es,$em,$eh);
   my ($nbdate,$nbtime,$nbts,$nedate,$netime,$nets);
@@ -1807,7 +1807,7 @@ sub extractEventlist {                                    ## no critic 'complexi
                           }
   
                           my $numOfAppointmentDay = _weekdayNumber ($rByDay);                            # liefert Nr des Wochentages: SU = 0 ... SA = 6                   
-                          
+                          Log3($name, 1, "$name - TEST - rByDay: $rByDay, numOfAppointmentDay: $numOfAppointmentDay");
                           for ($ci=-1; $ci<($count); $ci++) {
                               if ($rDayInterval > 0) {                                                   # Angabe "jeder x Wochentag" ist positiv (-2 wäre z.B. vom Ende des Monats zu zähelen)
                                   $bmonth += $interval if($ci>=0);