View | Details | Raw Unified | Return to bug 3150
Collapse All | Expand All

(-)a/Koha/Biblio.pm (-3 / +2 lines)
Lines 1333-1339 Return host only Link Here
1333
sub get_marc_host_only {
1333
sub get_marc_host_only {
1334
    my ($self) = @_;
1334
    my ($self) = @_;
1335
1335
1336
    my ( $host, $relatedparts ) = $self->get_marc_host;
1336
    my ( $host ) = $self->get_marc_host;
1337
1337
1338
    return $host;
1338
    return $host;
1339
}
1339
}
Lines 1349-1355 Return related parts only Link Here
1349
sub get_marc_relatedparts_only {
1349
sub get_marc_relatedparts_only {
1350
    my ($self) = @_;
1350
    my ($self) = @_;
1351
1351
1352
    my ( $host, $relatedparts ) = $self->get_marc_host;
1352
    my ( undef, $relatedparts ) = $self->get_marc_host;
1353
1353
1354
    return $relatedparts;
1354
    return $relatedparts;
1355
}
1355
}
1356
- 

Return to bug 3150