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 |
- |
|
|