diff options
Diffstat (limited to 'FS/FS/part_event')
-rw-r--r-- | FS/FS/part_event/Condition/cust_birthdate.pm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/FS/FS/part_event/Condition/cust_birthdate.pm b/FS/FS/part_event/Condition/cust_birthdate.pm index 56ce857..e8ecb06 100644 --- a/FS/FS/part_event/Condition/cust_birthdate.pm +++ b/FS/FS/part_event/Condition/cust_birthdate.pm @@ -43,8 +43,10 @@ sub condition { die "Unparsable timeframe given: ".$self->option('timeframe'); } - my $ck_dt = DateTime->from_epoch( epoch => $opt{time} ); - my $bd_dt = DateTime->from_epoch( epoch => $birthdate ); + my $ck_dt = DateTime->from_epoch( epoch => $opt{time} ) + ->truncate( to => 'day' ); + my $bd_dt = DateTime->from_epoch( epoch => $birthdate ) + ->truncate( to => 'day' ); # Find the birthday for this calendar year. If customer birthday # has already passed this year, find the birthday for next year. |