summaryrefslogtreecommitdiff
path: root/utils
diff options
context:
space:
mode:
authorChristian Pointner <equinox@spreadspace.org>2016-04-28 17:37:55 (GMT)
committerChristian Pointner <equinox@spreadspace.org>2016-04-28 17:38:10 (GMT)
commitfbe0303d3cc74f355beb49fcd6ac6d2cebe3851f (patch)
tree73eeb8342c5aa767679725d407dec9446ed04aad /utils
parenta9a7408950d797115245ee4293285ce2bba1a2c5 (diff)
perl date calc dow is not compatible to json and other formats...
Diffstat (limited to 'utils')
-rwxr-xr-xutils/rhrd-schedules1
1 files changed, 1 insertions, 0 deletions
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";