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;
-