|
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 |
- |
|
|