X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=Koha%2FBiblio.pm;h=8c453a83eff684287fb7a1f2cf3e4f5c3fb1b62e;hb=b6f9241d66b8a857dba51d747cb8fb67d2115433;hp=67ec343cc41b84ddd06a94b9290b40061dbb0299;hpb=2896077b193de63c5ddb0e2a9334939677b3fe34;p=koha-ffzg.git

diff --git a/Koha/Biblio.pm b/Koha/Biblio.pm
index 67ec343cc4..8c453a83ef 100644
--- a/Koha/Biblio.pm
+++ b/Koha/Biblio.pm
@@ -1333,7 +1333,7 @@ Return host only
 sub get_marc_host_only {
     my ($self) = @_;
 
-    my ( $host, $relatedparts ) = $self->get_marc_host;
+    my ( $host ) = $self->get_marc_host;
 
     return $host;
 }
@@ -1349,11 +1349,27 @@ Return related parts only
 sub get_marc_relatedparts_only {
     my ($self) = @_;
 
-    my ( $host, $relatedparts ) = $self->get_marc_host;
+    my ( undef, $relatedparts ) = $self->get_marc_host;
 
     return $relatedparts;
 }
 
+=head3 get_marc_hostinfo_only
+
+    my $hostinfo = $biblio->get_marc_hostinfo_only;
+
+Return host info only
+
+=cut
+
+sub get_marc_hostinfo_only {
+    my ($self) = @_;
+
+    my ( $host, $relatedparts, $hostinfo ) = $self->get_marc_host;
+
+    return $hostinfo;
+}
+
 =head3 recalls
 
     my $recalls = $biblio->recalls;