diff options
author | Christian Pointner <equinox@spreadspace.org> | 2016-04-28 17:37:55 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@spreadspace.org> | 2016-04-28 17:38:10 (GMT) |
commit | fbe0303d3cc74f355beb49fcd6ac6d2cebe3851f (patch) | |
tree | 73eeb8342c5aa767679725d407dec9446ed04aad /utils/rhrd-schedules | |
parent | a9a7408950d797115245ee4293285ce2bba1a2c5 (diff) |
perl date calc dow is not compatible to json and other formats...
Diffstat (limited to 'utils/rhrd-schedules')
-rwxr-xr-x | utils/rhrd-schedules | 1 |
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"; |