From 5fe6be9d1432f5c31c05fd2f8a666d9217af6e92 Mon Sep 17 00:00:00 2001
From: nasseeder1 <nasseeder1@users.noreply.github.com>
Date: Thu, 21 May 2020 06:11:31 +0000
Subject: [PATCH] 57_SSCal: contrib 2.4.1

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

diff --git a/fhem/contrib/DS_Starter/57_SSCal.pm b/fhem/contrib/DS_Starter/57_SSCal.pm
index 01d671560..b17dd2b21 100644
--- a/fhem/contrib/DS_Starter/57_SSCal.pm
+++ b/fhem/contrib/DS_Starter/57_SSCal.pm
@@ -831,7 +831,7 @@ sub Get {
                 }
             }          
             $i = 0;
-            for my $key (sortVersion("desc",keys %hs)) {
+            for my $key (sortTopicNum("desc",keys %hs)) {
                 $val0 = $hs{$key};
                 $ret .= sprintf("<td style=\"vertical-align:top\"><b>$key</b>  </td><td style=\"vertical-align:top\">$val0</td>" );
                 $ret .= "</tr>";
@@ -856,7 +856,7 @@ sub Get {
             $ret .= "<tbody>";
             $ret .= "<tr class=\"even\">";
             $i = 0;
-            for my $key (sortVersion("desc",keys %vNotesExtern)) {
+            for my $key (sortTopicNum("desc",keys %vNotesExtern)) {
                 ($val0,$val1) = split(/\s/x,$vNotesExtern{$key},2);
                 $ret .= sprintf("<td style=\"vertical-align:top\"><b>$key</b>  </td><td style=\"vertical-align:top\">$val0  </td><td>$val1</td>" );
                 $ret .= "</tr>";
@@ -3700,7 +3700,7 @@ sub explodeDateTime {                                    ## no critic 'complexit
       if($exdates) {
           my @exd = split(" ", $exdates);  
           # grep { !$seen{$_}++ } @exd;
-          for (@exd) { !$seen{$_}++ };
+          for (@exd) { $seen{$_}++ if(!$seen{$_}) };
       }
       $excl = 1 if($seen{$dtstart});                                            # check erfolgreich -> exclude recurring date weil (Serienelement gelöscht)
   
@@ -3796,7 +3796,7 @@ sub setVersionInfo {
   my ($hash) = @_;
   my $name   = $hash->{NAME};
 
-  my $v                    = (sortVersion("desc",keys %vNotesIntern))[0];
+  my $v                    = (sortTopicNum("desc",keys %vNotesIntern))[0];
   my $type                 = $hash->{TYPE};
   $hash->{HELPER}{PACKAGE} = __PACKAGE__;
   $hash->{HELPER}{VERSION} = $v;
@@ -3863,7 +3863,7 @@ sub calAsHtml {
       my $FW_style = AttrVal($FW_wname, "stylesheetPrefix", "default");
       my @scspecs  = split(",", $hash->{HELPER}{tableSpecs}{smallScreenStyles});     # Eigenschaft smallScreen in Array lesen
       # grep { !$specs{$_}++ } @scspecs; 
-      for (@scspecs) { !$specs{$_}++ };
+      for (@scspecs) { $specs{$_}++ if(!$specs{$_}) };
       $small = 1 if($specs{$FW_style});                                              # Tabelle für small-Style anpassen                                   
   }