View | Details | Raw Unified | Return to bug 30061
Collapse All | Expand All

(-)a/Koha/Patron.pm (-12 / +5 lines)
Lines 1222-1228 sub get_routing_lists { Link Here
1222
1222
1223
=head3 get_age
1223
=head3 get_age
1224
1224
1225
my $age = $patron->get_age
1225
    my $age = $patron->get_age
1226
1226
1227
Return the age of the patron
1227
Return the age of the patron
1228
1228
Lines 1230-1248 Return the age of the patron Link Here
1230
1230
1231
sub get_age {
1231
sub get_age {
1232
    my ($self)    = @_;
1232
    my ($self)    = @_;
1233
    my $today_str = dt_from_string->strftime("%Y-%m-%d");
1234
    return unless $self->dateofbirth;
1235
    my $dob_str   = dt_from_string( $self->dateofbirth )->strftime("%Y-%m-%d");
1236
1233
1237
    my ( $dob_y,   $dob_m,   $dob_d )   = split /-/, $dob_str;
1234
    return unless $self->dateofbirth;
1238
    my ( $today_y, $today_m, $today_d ) = split /-/, $today_str;
1239
1235
1240
    my $age = $today_y - $dob_y;
1236
    my $date_of_birth = dt_from_string( $self->dateofbirth );
1241
    if ( $dob_m . $dob_d > $today_m . $today_d ) {
1237
    my $today         = dt_from_string->truncate( to => 'day' );
1242
        $age--;
1243
    }
1244
1238
1245
    return $age;
1239
    return $today->subtract_datetime( $date_of_birth )->years;
1246
}
1240
}
1247
1241
1248
=head3 is_valid_age
1242
=head3 is_valid_age
1249
- 

Return to bug 30061