Attachment #171832 for bug #37710

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




    return $link_field;
}



=head3 unlink_marc_host

  $biblio->unlink_marc_host({ host => $biblio });
  $biblio->unlink_marc_host({ host => $biblionumber });

Remove the link to the parent created by link_marc_host. Expects either the biblio object or biblionumber of the host to link to.

=cut


sub unlink_marc_host {
    my ( $self, $params ) = @_;
    my $host_biblionumber;
    if ( ref( $params->{host} ) eq 'Koha::Biblio' ) {
        $host_biblionumber = $params->{host}->biblionumber;
    } else {
        $host_biblionumber = $params->{host};
    }

    my $record = $self->metadata->record;
    my $field_number = C4::Context->preference('marcflavour') eq 'MARC21' ? '773' : '461';
    my @fields = $record->field($field_number);

    foreach my $field (@fields) {
        my $subfield_biblionumber = $field->subfield('0') // q{};
        if  ($host_biblionumber eq $subfield_biblionumber){
            $record->delete_field($field);
        }
    }

    C4::Biblio::ModBiblio($record, $self->biblionumber);
}


=head3 link_marc_host

  $biblio->link_marc_host({ field => $link_field});

Lines 411-416 sub remove_from_bundle { Link Here

(-)a/Koha/REST/V1/Items.pm (-1 / +1 lines)
411	unless $bundle_item;	411	unless $bundle_item;
412		412
413	return try {	413	return try {
		414	$bundle_item->biblio->unlink_marc_host({ host => $item->biblio });
414	$bundle_item->remove_from_bundle;	415	$bundle_item->remove_from_bundle;
415	return $c->render_resource_deleted;	416	return $c->render_resource_deleted;
416	} catch {	417	} catch {
417	-

Return to bug 37710

Lines 1931-1936 sub generate_marc_host_field { Link Here

(-)a/Koha/Biblio.pm (+36 lines)
1931	return $link_field;	1931	return $link_field;
1932	}	1932	}
1933		1933
		1934
		1935
		1936	=head3 unlink_marc_host
		1937
		1938	$biblio->unlink_marc_host({ host => $biblio });
		1939	$biblio->unlink_marc_host({ host => $biblionumber });
		1940
		1941	Remove the link to the parent created by link_marc_host. Expects either the biblio object or biblionumber of the host to link to.
		1942
		1943	=cut
		1944
		1945
		1946	sub unlink_marc_host {
		1947	my ( $self, $params ) = @_;
		1948	my $host_biblionumber;
		1949	if ( ref( $params->{host} ) eq 'Koha::Biblio' ) {
		1950	$host_biblionumber = $params->{host}->biblionumber;
		1951	} else {
		1952	$host_biblionumber = $params->{host};
		1953	}
		1954
		1955	my $record = $self->metadata->record;
		1956	my $field_number = C4::Context->preference('marcflavour') eq 'MARC21' ? '773' : '461';
		1957	my @fields = $record->field($field_number);
		1958
		1959	foreach my $field (@fields) {
		1960	my $subfield_biblionumber = $field->subfield('0') // q{};
		1961	if ($host_biblionumber eq $subfield_biblionumber){
		1962	$record->delete_field($field);
		1963	}
		1964	}
		1965
		1966	C4::Biblio::ModBiblio($record, $self->biblionumber);
		1967	}
		1968
		1969
1934	=head3 link_marc_host	1970	=head3 link_marc_host
1935		1971
1936	$biblio->link_marc_host({ field => $link_field});	1972	$biblio->link_marc_host({ field => $link_field});