diff options
author | Christian Pointner <equinox@helsinki.at> | 2014-03-11 09:48:39 (GMT) |
---|---|---|
committer | Christian Pointner <equinox@helsinki.at> | 2014-03-11 09:48:39 (GMT) |
commit | 4b36feb971e6ef9e6e5b5c3027e1701e4bc21496 (patch) | |
tree | 9774b58d6980d30538161aabdd195509a20d1b69 /rhimport-ut | |
parent | 4b0813c2f2543dcec308b0985c3cc27c83e9639e (diff) |
re-rebroadcasting u-ton
Diffstat (limited to 'rhimport-ut')
-rwxr-xr-x | rhimport-ut | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rhimport-ut b/rhimport-ut index 1403246..eb1cd3c 100755 --- a/rhimport-ut +++ b/rhimport-ut @@ -79,7 +79,7 @@ $import_date[2] = 3; @import_date = Date::Calc::Business_to_Standard(@import_date); @import_date = Date::Calc::Add_Delta_Days(@import_date, 7) if ($dow > 3); -my @broadcast_day = Date::Calc::Add_Delta_Days(@import_date, -36); +my @broadcast_day = Date::Calc::Add_Delta_Days(@import_date, -106); my @import_date_reb = Date::Calc::Add_Delta_Days(@import_date, 2); 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"; |