Lines 69-75
sub fetch_bib {
Link Here
|
69 |
my $biblio = Koha::Biblios->find( $biblionumber ); |
69 |
my $biblio = Koha::Biblios->find( $biblionumber ); |
70 |
my $record; |
70 |
my $record; |
71 |
my $exception; |
71 |
my $exception; |
72 |
my $invalid_metadata; |
72 |
my $invalid_metadata = 0; |
73 |
eval { $record = $biblio->metadata->record( { embed_items => scalar $query->param('items') } ) }; |
73 |
eval { $record = $biblio->metadata->record( { embed_items => scalar $query->param('items') } ) }; |
74 |
if ($@) { |
74 |
if ($@) { |
75 |
$exception = $@; |
75 |
$exception = $@; |
Lines 79-84
sub fetch_bib {
Link Here
|
79 |
} |
79 |
} |
80 |
if ( defined $record ) { |
80 |
if ( defined $record ) { |
81 |
print $query->header( -type => 'text/xml', -charset => 'utf-8', -invalid_metadata => $invalid_metadata ); |
81 |
print $query->header( -type => 'text/xml', -charset => 'utf-8', -invalid_metadata => $invalid_metadata ); |
|
|
82 |
# print $query->header( -type => 'text/xml', -charset => 'utf-8' ); |
82 |
print $record->as_xml_record(); |
83 |
print $record->as_xml_record(); |
83 |
} else { |
84 |
} else { |
84 |
print $query->header( -type => 'text/xml', -status => '404 Not Found' ); |
85 |
print $query->header( -type => 'text/xml', -status => '404 Not Found' ); |
85 |
- |
|
|