added some more checks: dow, week-rhythm...

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;