A couple other places that use the standing_penalty list needed to
be adjusted to account for the non-de-fleshing.
Kudos to Jason Etheridge for noting the live_t test failure. Also,
unit tests FTW.
Signed-off-by: Galen Charlton <gmc@equinoxinitiative.org>
sub too_many_overdue {
my $self = shift;
return scalar( # PATRON_EXCEEDS_OVERDUE_COUNT
- grep { $_ == OILS_PENALTY_PATRON_EXCEEDS_OVERDUE_COUNT } @{$self->{user}->standing_penalties}
+ grep { $_->id == OILS_PENALTY_PATRON_EXCEEDS_OVERDUE_COUNT } @{$self->{user}->standing_penalties}
);
}
sub excessive_fines {
my $self = shift;
return scalar( # PATRON_EXCEEDS_FINES
- grep { $_ == OILS_PENALTY_PATRON_EXCEEDS_FINES } @{$self->{user}->standing_penalties}
+ grep { $_->id == OILS_PENALTY_PATRON_EXCEEDS_FINES } @{$self->{user}->standing_penalties}
);
}