From 96d41f8bdbc8d89f4fc1eb440bccf46173626c84 Mon Sep 17 00:00:00 2001
From: immi <>
Date: Fri, 14 Apr 2023 19:26:16 +0000
Subject: [PATCH] THZ:  timeframe 7prog until 24:00, forum
 topic=33211.msg1272361

git-svn-id: https://svn.fhem.de/fhem/trunk@27446 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/00_THZ.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/fhem/FHEM/00_THZ.pm b/fhem/FHEM/00_THZ.pm
index dc280b125..fc90f6961 100644
--- a/fhem/FHEM/00_THZ.pm
+++ b/fhem/FHEM/00_THZ.pm
@@ -1,8 +1,8 @@
 ##############################################
 # 00_THZ
 # $Id$
-# by immi 12/2022
-my $thzversion = "0.206";
+# by immi 04/2023
+my $thzversion = "0.207";
 # this code is based on the hard work of Robert; I just tried to port it
 # http://robert.penz.name/heat-pump-lwz/
 ########################################################################################
@@ -1213,7 +1213,7 @@ sub THZ_Set($@){
     }
     elsif ($cmdhash->{type} =~ /7prog|8party/) {          
         ($arg, $arg1)=split('--', $arg);
-        return "Argument does not match the allowed inerval Min $argMin ...... Max $argMax " if (($arg ne "n.a.") and ($arg1 ne "n.a.") and (($arg !~ /^(?:\d|[01]\d|2[0-3]):[0-5]\d$/ )  or ($arg1 !~ /^(?:\d|[01]\d|2[0-3]):[0-5]\d$/ )) ) ;
+        return "Argument does not match the allowed inerval Min $argMin ...... Max $argMax " if (($arg ne "n.a.") and ($arg1 ne "n.a.") and (($arg !~ /^(?:\d|[01]\d|2[0-3]):[0-5]\d$/ )  or ($arg1 !~ /^24:00|(?:\d|[01]\d|2[0-3]):[0-5]\d$/ )) ) ;
     }
     elsif ($cmdhash->{type} eq "2opmode") {
         $arg1=undef;