From 37cc747d097e8d7f803ace845ab531e10f3478eb Mon Sep 17 00:00:00 2001 From: Janusz Kaczmarek Date: Thu, 3 Apr 2025 12:44:31 +0000 Subject: [PATCH] Bug 39545: Better generation of 773 field for a child record (MARC21) When creating a child record (New > New child record from Normal view) the information put in field 773 is very basic, sometimes not complete (e.g. only one ISBN, only 245 $a in 773 $t, 773 $w missing 003 of the host record etc.) and put in random order. Test plan: ========== 1. Find any record to be a host record for an analytical record. You can enrich the record with multiple 020, 490+830 fields, make sure that there are 001 and 003 fields present. 2. From upper menu chose New > New child record. 3. See the generated field 773 - the subfields are incomplete and in random order. 4. Apply the patch ; restart_all. 5. Repeat p. 2.-3. See that the generated 773 field contains now much more information, including 773 $7 and also preset leader. Signed-off-by: Roman Dolny Rebased-by: Martin Renvoize The rebase removed the majority of this patch as the prepare_host_field method was removed entirely upstream. The follow-up patch re-implements the same but in the newer Koha::Biblio->generate_marc_host_field method instead. We also dropped the Unit tests that were introduced in the subsequent patch. --- cataloguing/addbiblio.pl | 1 + 1 file changed, 1 insertion(+) diff --git a/cataloguing/addbiblio.pl b/cataloguing/addbiblio.pl index a4077be3924..51fbb1a31d9 100755 --- a/cataloguing/addbiblio.pl +++ b/cataloguing/addbiblio.pl @@ -644,6 +644,7 @@ if ($hostbiblionumber) { if ($parentbiblio) { my $marcflavour = C4::Context->preference('marcflavour'); $record = MARC::Record->new(); + $record->leader(' naa a22 i 4500'); SetMarcUnicodeFlag( $record, $marcflavour ); my $parent = Koha::Biblios->find($parentbiblio); my $hostfield = $parent->generate_marc_host_field; -- 2.49.0