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

(-)a/Koha/Objects/Record/Collections.pm (-2 / +5 lines)
Lines 47-52 This class must always be subclassed. Link Here
47
=cut
47
=cut
48
48
49
=head3 print_collection
49
=head3 print_collection
50
50
    my $collection_text = $result_set->print_collection($format)
51
    my $collection_text = $result_set->print_collection($format)
51
52
52
Return a text representation of a collection (group of records) in the specified format.
53
Return a text representation of a collection (group of records) in the specified format.
Lines 83-89 sub print_collection { Link Here
83
        $end    = MARC::File::XML::footer();
84
        $end    = MARC::File::XML::footer();
84
    }
85
    }
85
    while ( my $element = $self->next ) {
86
    while ( my $element = $self->next ) {
86
        push @parts, $serializers{$format}->( $element->record );
87
        my $metadata = $element->metadata;
88
        MARC::File::XML->default_record_format( $metadata->schema // C4::Context->preference("marcflavour") )
89
          if $format eq 'marcxml';
90
        push @parts, $serializers{$format}->( $metadata->record );
87
    }
91
    }
88
    return
92
    return
89
        ( defined $start ? $start : '' )
93
        ( defined $start ? $start : '' )
90
- 

Return to bug 33329