diff options
Diffstat (limited to 'lib/RHRD/utils.pm')
| -rwxr-xr-x | lib/RHRD/utils.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lib/RHRD/utils.pm b/lib/RHRD/utils.pm index fbc3933..7f060e9 100755 --- a/lib/RHRD/utils.pm +++ b/lib/RHRD/utils.pm @@ -32,6 +32,7 @@ use JSON; sub get_rd_week { + my ($time) = @_; # # This computes the current Rivendell Week based on the number # of weeks since epoch. @@ -48,10 +49,12 @@ sub get_rd_week # with 0 meaning Week 1. So add 1 to that number and you will get # the current RD week. # - my $now = DateTime->now(); + if(!defined($time)) { + $time = DateTime->now(); + } my $tz = DateTime::TimeZone->new(name => 'Europe/Vienna'); - my $tz_offset = $tz->offset_for_datetime($now); - my $sEpoch = $now->epoch() + $tz_offset; + my $tz_offset = $tz->offset_for_datetime($time); + my $sEpoch = $time->epoch() + $tz_offset; my $week = floor(((($sEpoch + 259200)/604800) + 2) % 4) + 1; return $week; |