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