[Openautomation-svn] SF.net SVN: openautomation:[2313] wiregate/plugin/generic/Logikprozessor.pl

[<pf...@us...>]

Revision: 2313
          http://sourceforge.net/p/openautomation/code/2313
Author:   pfry
Date:     2015-01-05 21:59:03 +0000 (Mon, 05 Jan 2015)
Log Message:
-----------
Bugfix in date=>'von-bis'

Modified Paths:
--------------
    wiregate/plugin/generic/Logikprozessor.pl

Modified: wiregate/plugin/generic/Logikprozessor.pl
===================================================================
--- wiregate/plugin/generic/Logikprozessor.pl	2015-01-04 23:37:36 UTC (rev 2312)
+++ wiregate/plugin/generic/Logikprozessor.pl	2015-01-05 21:59:03 UTC (rev 2313)
@@ -213,7 +213,14 @@
 	$footnote.="(T)" if $logic{$t}{transmit_only_on_request};
 	$footnote.="(R)" if $logic{$t}{recalc_on_request};
 
-	$logic{$t}{reply_to_read_requests}=$reply;
+	if(defined $reply)
+	{
+	    $logic{$t}{reply_to_read_requests}=$reply;
+	}
+	else
+	{
+	    delete $logic{$t}{reply_to_read_requests};
+	}
 	next unless $reply;
 
 	$transmit=[$transmit] unless ref $transmit;
@@ -1102,7 +1109,7 @@
 		if($ks=~/^([0-9]+)\/([0-9]+)\-([0-9]+)\/([0-9]+)$/)
 		{
 		    my ($m1,$d1,$m2,$d2)=($1,$2,$3,$4); 
-		    while($m1<$m2 || ($m1==$m2 && $d1<$d2))
+		    while($m1<$m2 || ($m1==$m2 && $d1<=$d2))
 		    {
 			push @{$newlist}, sprintf("%02d\/%02d",$m1,$d1);
 			if($d1==$days_in_month[$m1]) { $m1++; $d1=1; } else { $d1++; }

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.