=head3 library
Returns a Koha::Library object representing the patron's home library.
=cut
sub library {
Return true if the patron has a category with a type Child (C)
sub is_child {
my( $self ) = @_;
return $self->category->category_type eq 'C' ? 1 : 0;
-