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

(-)a/Koha/Patron.pm (-1 / +15 lines)
Lines 806-816 sub has_permission { Link Here
806
    return C4::Auth::haspermission( $self->userid, $flagsrequired );
806
    return C4::Auth::haspermission( $self->userid, $flagsrequired );
807
}
807
}
808
808
809
=head3 is_adult
810
811
my $is_adult = $patron->is_adult
812
813
Return true if the patron has a category with a type Adult (A) or Organization (I)
814
815
=cut
816
809
sub is_adult {
817
sub is_adult {
810
    my ( $self ) = @_;
818
    my ( $self ) = @_;
811
    return $self->category->category_type =~ /^(A|I)$/ ? 1 : 0;
819
    return $self->category->category_type =~ /^(A|I)$/ ? 1 : 0;
812
}
820
}
813
821
822
=head3 is_child
823
824
my $is_child = $patron->is_child
825
826
Return true if the patron has a category with a type Child (C)
827
828
=cut
814
sub is_child {
829
sub is_child {
815
    my( $self ) = @_;
830
    my( $self ) = @_;
816
    return $self->category->category_type eq 'C' ? 1 : 0;
831
    return $self->category->category_type eq 'C' ? 1 : 0;
817
- 

Return to bug 18789