From fbe0303d3cc74f355beb49fcd6ac6d2cebe3851f Mon Sep 17 00:00:00 2001
From: Christian Pointner <equinox@spreadspace.org>
Date: Thu, 28 Apr 2016 19:37:55 +0200
Subject: perl date calc dow is not compatible to json and other formats...


diff --git a/utils/rhrd-schedules b/utils/rhrd-schedules
index 30021f8..fa52226 100755
--- a/utils/rhrd-schedules
+++ b/utils/rhrd-schedules
@@ -111,6 +111,7 @@ sub show__day
         print "$status: $errorstring\n";
         $errcnt++;
       } else {
+        ${$show}{'DOW'} = 7 if ${$show}{'DOW'} == 0;
         my @weeks = split('', ${$show}{'RHYTHM'});
         if ($title ne ${$show}{'TITLE'} && ($title . " (Wiederholung)") ne ${$show}{'TITLE'}) {
           print "WARNING: title mismatch (PV: '$title' != RD: '" . ${$show}{'TITLE'} . "') -- PV-id: $pvid\n";
-- 
cgit v0.10.2