Lines 296-304
sub XSLTParse4Display {
Link Here
|
296 |
if ( $biblio->components() ) { |
296 |
if ( $biblio->components() ) { |
297 |
my @componentPartRecordXML = ('<componentPartRecords>'); |
297 |
my @componentPartRecordXML = ('<componentPartRecords>'); |
298 |
for my $cb ( @{ $biblio->components() } ) { |
298 |
for my $cb ( @{ $biblio->components() } ) { |
|
|
299 |
if( ref $cb eq 'MARC::Record'){ |
300 |
$cb = $cb->as_xml_record(); |
301 |
} else { |
302 |
$cb = decode('utf8', $cb); |
303 |
} |
299 |
# Remove the xml header |
304 |
# Remove the xml header |
300 |
$cb =~ s/^<\?xml.*?\?>//; |
305 |
$cb =~ s/^<\?xml.*?\?>//; |
301 |
push @componentPartRecordXML, decode('utf8', $cb); |
306 |
push @componentPartRecordXML,$cb; |
302 |
} |
307 |
} |
303 |
push @componentPartRecordXML, '</componentPartRecords>'; |
308 |
push @componentPartRecordXML, '</componentPartRecords>'; |
304 |
$partsxml = join "\n", @componentPartRecordXML; |
309 |
$partsxml = join "\n", @componentPartRecordXML; |