diff options
| author | Christian Pointner <equinox@helsinki.at> | 2016-03-12 05:17:14 (GMT) |
|---|---|---|
| committer | Christian Pointner <equinox@helsinki.at> | 2016-03-12 05:17:14 (GMT) |
| commit | 909b01375b6f90aa365e6085d81a58dbae98d9d4 (patch) | |
| tree | 006b83bdb414f05c2cd65330250adb5e4863cf5a /rhautoimport-tr | |
| parent | c29dcdf834efd8623ab20f34fd47e1e24ab619b2 (diff) | |
some cleanups and syntactic improvements
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"; |