diff options
Diffstat (limited to 'rhautoimport-tr')
| -rwxr-xr-x | rhautoimport-tr | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rhautoimport-tr b/rhautoimport-tr index 2de6c42..263cc0f 100755 --- a/rhautoimport-tr +++ b/rhautoimport-tr @@ -64,9 +64,9 @@ if($today[2] == 5) { } my @broadcast_day = Date::Calc::Business_to_Standard($today[0], $today[1], 5); if($today[2] < 5) { - @broadcast_day = Date::Calc::Add_Delta_Days($broadcast_day[0], $broadcast_day[1], $broadcast_day[2], -7); + @broadcast_day = Date::Calc::Add_Delta_Days(@broadcast_day, -7); } -my @import_date = Date::Calc::Add_Delta_Days($broadcast_day[0], $broadcast_day[1], $broadcast_day[2], 7); +my @import_date = Date::Calc::Add_Delta_Days(@broadcast_day, 7); print "day of original broadcast: " . Date::Calc::Date_to_Text(@broadcast_day) . "\n"; print "day of Radio Helsinki broadcast: " . Date::Calc::Date_to_Text(@import_date) . "\n"; |