diff options
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"; |