Lines 283-291
sub XSLTParse4Display {
Link Here
|
283 |
if ( $biblio->components() ) { |
283 |
if ( $biblio->components() ) { |
284 |
my @componentPartRecordXML = ('<componentPartRecords>'); |
284 |
my @componentPartRecordXML = ('<componentPartRecords>'); |
285 |
for my $cb ( @{ $biblio->components() } ) { |
285 |
for my $cb ( @{ $biblio->components() } ) { |
|
|
286 |
if( ref $cb eq 'MARC::Record'){ |
287 |
$cb = $cb->as_xml_record(); |
288 |
} else { |
289 |
$cb = decode('utf8', $cb); |
290 |
} |
286 |
# Remove the xml header |
291 |
# Remove the xml header |
287 |
$cb =~ s/^<\?xml.*?\?>//; |
292 |
$cb =~ s/^<\?xml.*?\?>//; |
288 |
push @componentPartRecordXML, decode('utf8', $cb); |
293 |
push @componentPartRecordXML,$cb; |
289 |
} |
294 |
} |
290 |
push @componentPartRecordXML, '</componentPartRecords>'; |
295 |
push @componentPartRecordXML, '</componentPartRecords>'; |
291 |
$partsxml = join "\n", @componentPartRecordXML; |
296 |
$partsxml = join "\n", @componentPartRecordXML; |