Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 18789: Add POD for is_adult and is_child

Browse source 
Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Jonathan Druart 2018-02-16 13:57:07 -03:00
parent 249736a67f
commit 97bfd4be33
1 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
Koha/Patron.pm
View file

@ -806,11 +806,26 @@ sub has_permission {
return C4::Auth::haspermission( $self->userid, $flagsrequired );
}
=head3 is_adult
my $is_adult = $patron->is_adult
Return true if the patron has a category with a type Adult (A) or Organization (I)
=cut
sub is_adult {
my ( $self ) = @_;
return $self->category->category_type =~ /^(A|I)$/ ? 1 : 0;
}
=head3 is_child
my $is_child = $patron->is_child
Return true if the patron has a category with a type Child (C)
=cut
sub is_child {
my( $self ) = @_;
return $self->category->category_type eq 'C' ? 1 : 0;