View | Details | Raw Unified | Return to bug 12252
Collapse All | Expand All

(-)a/opac/oai.pl (-3 / +6 lines)
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
- 

Return to bug 12252