Lines 531-538
package C4::OAI::ListRecords;
Link Here
|
531 |
|
531 |
|
532 |
use strict; |
532 |
use strict; |
533 |
use warnings; |
533 |
use warnings; |
|
|
534 |
use C4::Biblio; |
534 |
use HTTP::OAI; |
535 |
use HTTP::OAI; |
535 |
use C4::OAI::Sets; |
536 |
use C4::OAI::Sets; |
|
|
537 |
use MARC::File::XML; |
536 |
|
538 |
|
537 |
use base ("HTTP::OAI::ListRecords"); |
539 |
use base ("HTTP::OAI::ListRecords"); |
538 |
|
540 |
|
Lines 550-556
sub new {
Link Here
|
550 |
} |
552 |
} |
551 |
my $max = $repository->{koha_max_count}; |
553 |
my $max = $repository->{koha_max_count}; |
552 |
my $sql = " |
554 |
my $sql = " |
553 |
(SELECT biblioitems.biblionumber, biblioitems.marcxml, biblioitems.timestamp |
555 |
SELECT biblioitems.biblionumber, biblioitems.timestamp |
554 |
FROM biblioitems |
556 |
FROM biblioitems |
555 |
"; |
557 |
"; |
556 |
$sql .= " JOIN oai_sets_biblios ON biblioitems.biblionumber = oai_sets_biblios.biblionumber " if defined $set; |
558 |
$sql .= " JOIN oai_sets_biblios ON biblioitems.biblionumber = oai_sets_biblios.biblionumber " if defined $set; |
Lines 574-580
sub new {
Link Here
|
574 |
$sth->execute( @bind_params ); |
576 |
$sth->execute( @bind_params ); |
575 |
|
577 |
|
576 |
my $count = 0; |
578 |
my $count = 0; |
577 |
while ( my ($biblionumber, $marcxml, $timestamp) = $sth->fetchrow ) { |
579 |
while ( my ($biblionumber, $timestamp) = $sth->fetchrow ) { |
578 |
$count++; |
580 |
$count++; |
579 |
if ( $count > $max ) { |
581 |
if ( $count > $max ) { |
580 |
$self->resumptionToken( |
582 |
$self->resumptionToken( |
Lines 588-593
sub new {
Link Here
|
588 |
); |
590 |
); |
589 |
last; |
591 |
last; |
590 |
} |
592 |
} |
|
|
593 |
my $record = GetMarcBiblio($biblionumber, 1, 1); |
594 |
my $marcxml = $record->as_xml(); |
591 |
my $oai_sets = GetOAISetsBiblio($biblionumber); |
595 |
my $oai_sets = GetOAISetsBiblio($biblionumber); |
592 |
my @setSpecs; |
596 |
my @setSpecs; |
593 |
foreach (@$oai_sets) { |
597 |
foreach (@$oai_sets) { |
594 |
- |
|
|