sub get_marc_host_only {
my ($self) = @_;
my ( $host, $relatedparts ) = $self->get_marc_host;
my ( $host ) = $self->get_marc_host;
return $host;
}
sub get_marc_relatedparts_only {
my ( undef, $relatedparts ) = $self->get_marc_host;
return $relatedparts;
-