Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Bug 33329: Correctly handle UNIMARC encoding for biblios

Browse source 
This patch introduces the same treatment we had for bug 32336, this time
for Koha::Objects::Record::Collections.

To test:
1. Apply the regression tests patch
2. Run:
   $ ktd --shell
  k$ prove t/db_dependent/api/v1/biblios.t
=> FAIL: Tests fail! Encoding is wrong for UNIMARC!
3. Apply this patch
4. Repeat 2
=> SUCCESS: Tests pass!
5. Sign off :-D

Signed-off-by: David Nind <david@davidnind.com>
Signed-off-by: Nick Clemens <nick@bywatersolutions.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
This commit is contained in:
Tomás Cohen Arazi 2023-04-14 17:21:15 -03:00
parent 81fc1ebe71
commit 5121f77460
Signed by: tomascohen
GPG key ID: 0A272EA1B2F3C15F
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Koha/Objects/Record/Collections.pm
View file

@ -47,6 +47,7 @@ This class must always be subclassed.
=cut
=head3 print_collection
my $collection_text = $result_set->print_collection($format)
Return a text representation of a collection (group of records) in the specified format.
@ -83,7 +84,10 @@ sub print_collection {
$end = MARC::File::XML::footer();
}
while ( my $element = $self->next ) {
push @parts, $serializers{$format}->( $element->record );
my $metadata = $element->metadata;
MARC::File::XML->default_record_format( $metadata->schema // C4::Context->preference("marcflavour") )
if $format eq 'marcxml';
push @parts, $serializers{$format}->( $metadata->record );
}
return
( defined $start ? $start : '' )