From 6cb4a3d77eec4aef3dbb73f3ed5a24f5eb45d12c Mon Sep 17 00:00:00 2001 From: HomeAuto_User <> Date: Thu, 26 Sep 2019 17:57:59 +0000 Subject: [PATCH] 88_Timer: fix overview git-svn-id: https://svn.fhem.de/fhem/trunk@20253 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/88_Timer.pm | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/fhem/FHEM/88_Timer.pm b/fhem/FHEM/88_Timer.pm index 1f0e79108..9fee73cfd 100644 --- a/fhem/FHEM/88_Timer.pm +++ b/fhem/FHEM/88_Timer.pm @@ -147,10 +147,13 @@ sub Timer_Set($$$@) { if ($cmd eq "sortTimer") { my @timers_unsortet; - my $userattr_new = ""; my @userattr_values; my @attr_values_names; my $timer_nr_new; + my $array_diff = 0; # difference, Timer can be sorted >= 1 + my $array_diff_cnt1 = 0; # need to check 1 + 1 + my $array_diff_cnt2 = 0; # need to check 1 + 1 + RemoveInternalTimer($hash, "Timer_Check"); foreach my $readingsName (sort keys %{$hash->{READINGS}}) { @@ -158,11 +161,13 @@ sub Timer_Set($$$@) { my $value = ReadingsVal($name, $readingsName, 0); $value =~ /^.*\d{2},(.*),(on|off|Def)/; push(@timers_unsortet,$1.",".ReadingsVal($name, $readingsName, 0).",$readingsName"); # unsort Reading Wert in Array + $array_diff_cnt1++; + $array_diff_cnt2 = substr($readingsName,-2) * 1; + $array_diff = 1 if ($array_diff_cnt1 != $array_diff_cnt2 && $array_diff == 0); } } my @timers_sort = sort @timers_unsortet; # Timer in neues Array sortieren - my $array_diff = 0; for (my $i=0; $i