diff options
| author | Christian Pointner <equinox@helsinki.at> | 2016-11-12 14:56:59 (GMT) |
|---|---|---|
| committer | Christian Pointner <equinox@helsinki.at> | 2016-11-12 14:56:59 (GMT) |
| commit | 9fefda185b180ddb950c11319be790702d03bc2f (patch) | |
| tree | eed80cd00686b2bf1f8e807cbd0eab0c1ad44a0f /rhautoimport-wr | |
| parent | 1e7bc60785911882f44e4eb4033b1e553be8b378 (diff) | |
Werkstatt Radio is now on Saturday
Diffstat (limited to 'rhautoimport-wr')
| -rwxr-xr-x | rhautoimport-wr | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/rhautoimport-wr b/rhautoimport-wr index 21dbcdc..89f5480 100755 --- a/rhautoimport-wr +++ b/rhautoimport-wr @@ -62,12 +62,12 @@ my @today = Date::Calc::Today(); print "today: " . Date::Calc::Date_to_Text(@today) . " (Week: " . $curweek . ")\n"; my @import_date = Date::Calc::Standard_to_Business(@today); -$import_date[2] = 3; +$import_date[2] = 6; @import_date = Date::Calc::Business_to_Standard(@import_date); my $dow = Date::Calc::Day_of_Week(@today); if($curweek == 1 || $curweek == 3) { - if($dow > 3) { + if($dow > 6) { @import_date = Date::Calc::Add_Delta_Days(@import_date, 14); } } else { |