@@ -, +, @@ --- Koha/Patron.pm | 1 + 1 file changed, 1 insertion(+) --- a/Koha/Patron.pm +++ a/Koha/Patron.pm @@ -1217,6 +1217,7 @@ 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; --