@@ -, +, @@ appropriate. --- opac/oai.pl | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) --- a/opac/oai.pl +++ a/opac/oai.pl @@ -456,8 +456,10 @@ package C4::OAI::ListRecords; use strict; use warnings; +use C4::Biblio; use HTTP::OAI; use C4::OAI::Sets; +use MARC::File::XML; use base ("HTTP::OAI::ListRecords"); @@ -474,7 +476,7 @@ sub new { $set = GetOAISetBySpec($token->{'set'}); } my $sql = " - SELECT biblioitems.biblionumber, biblioitems.marcxml, biblioitems.timestamp + SELECT biblioitems.biblionumber, biblioitems.timestamp FROM biblioitems "; $sql .= " JOIN oai_sets_biblios ON biblioitems.biblionumber = oai_sets_biblios.biblionumber " if defined $set; @@ -491,7 +493,9 @@ sub new { $sth->execute( @bind_params ); my $pos = $token->{offset}; - while ( my ($biblionumber, $marcxml, $timestamp) = $sth->fetchrow ) { + while ( my ($biblionumber, $timestamp) = $sth->fetchrow ) { + my $record = GetMarcBiblio($biblionumber, 1, 1); + my $marcxml = $record->as_xml(); my $oai_sets = GetOAISetsBiblio($biblionumber); my @setSpecs; foreach (@$oai_sets) { --