From c5558020f4d8d4c27eba5c5b1a6e13bf4a739849 Mon Sep 17 00:00:00 2001 From: Tomas Cohen Arazi Date: Wed, 9 Feb 2022 10:45:15 -0300 Subject: [PATCH] Bug 30061: Make Koha::Patron->get_age use DateTime math This patch does what the title says. Instead of converting dates to strings and performing math manually, we can just use the DateTime objects we have and calculate the DateTime::Duration there's between them, to get the years count. To test: 1. Run: $ kshell k$ prove t/db_dependent/Koha/Patrons.t => SUCCESS: Tests pass 2. Apply this patch 3. Repeat 1 => SUCCESS: Tests pass 4. Sign off :-D Signed-off-by: Tomas Cohen Arazi --- Koha/Patron.pm | 16 +++++----------- 1 file changed, 5 insertions(+), 11 deletions(-) diff --git a/Koha/Patron.pm b/Koha/Patron.pm index ddf4ebe5bb..118f41696f 100644 --- a/Koha/Patron.pm +++ b/Koha/Patron.pm @@ -1221,7 +1221,7 @@ sub get_routing_lists { =head3 get_age -my $age = $patron->get_age + my $age = $patron->get_age Return the age of the patron @@ -1229,19 +1229,13 @@ Return the age of the patron sub get_age { my ($self) = @_; - my $today_str = dt_from_string->strftime("%Y-%m-%d"); - return unless $self->dateofbirth; - my $dob_str = dt_from_string( $self->dateofbirth )->strftime("%Y-%m-%d"); - my ( $dob_y, $dob_m, $dob_d ) = split /-/, $dob_str; - my ( $today_y, $today_m, $today_d ) = split /-/, $today_str; + return unless $self->dateofbirth; - my $age = $today_y - $dob_y; - if ( $dob_m . $dob_d > $today_m . $today_d ) { - $age--; - } + my $date_of_birth = dt_from_string( $self->dateofbirth ); + my $today = dt_from_string->truncate( to => 'day' ); - return $age; + return $today->subtract_datetime( $date_of_birth )->years; } =head3 is_valid_age -- 2.32.0