diff options
| -rwxr-xr-x | rhautoimport-rs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rhautoimport-rs b/rhautoimport-rs index 9e3f6e5..2d9ffab 100755 --- a/rhautoimport-rs +++ b/rhautoimport-rs @@ -83,7 +83,7 @@ if($dow <= $week_table{$curweek}) { $import_date[2] = $week_table{$nextweek}; @import_date = Date::Calc::Business_to_Standard(@import_date); @import_date = Date::Calc::Add_Delta_Days(@import_date, 7); - $dow = $week_table{$curweek}; + $dow = $week_table{$nextweek}; } print "day of next Radio Helsinki broadcast: " . Date::Calc::Date_to_Text(@import_date) . "\n"; |