summaryrefslogtreecommitdiff
path: root/utils/rhrd-schedules
diff options
context:
space:
mode:
authorChristian Pointner <equinox@helsinki.at>2016-12-03 23:57:50 (GMT)
committerChristian Pointner <equinox@helsinki.at>2016-12-03 23:57:50 (GMT)
commite0af56bcdcdd691ad09d70ec2cbd72219f70bb4e (patch)
tree93860e00330bd68799418dbe6f3058c7d5fda568 /utils/rhrd-schedules
parentd2cd10c65bc4b310b0ebea3f622d67f612728de2 (diff)
fixed call to Date::Calc::Day_of_Week_to_Text()
Diffstat (limited to 'utils/rhrd-schedules')
-rwxr-xr-xutils/rhrd-schedules4
1 files changed, 3 insertions, 1 deletions
diff --git a/utils/rhrd-schedules b/utils/rhrd-schedules
index 066a690..2b826e9 100755
--- a/utils/rhrd-schedules
+++ b/utils/rhrd-schedules
@@ -155,7 +155,9 @@ sub show__day_entry
return 1;
}
if($dow != ${$show}{'DOW'}) {
- print "WARNING: wrong day of week (PV: " . Date::Calc::Day_of_Week_to_Text($dow) . " != RD: " . Date::Calc::Day_of_Week_to_Text(${$show}{'DOW'}) . ") -- PV-id: $pvid\n";
+ my $rddowstr = "-";
+ $rddowstr = Date::Calc::Day_of_Week_to_Text(${$show}{'DOW'}) if(${$show}{'DOW'} >= 0);
+ print "WARNING: wrong day of week (PV: " . Date::Calc::Day_of_Week_to_Text($dow) . " != RD: " . $rddowstr . ") -- PV-id: $pvid\n";
return 1;
}
if($weeks[$week-1] != '1') {