Lines 577-582
sub new {
Link Here
|
577 |
$sth->execute( @bind_params ); |
577 |
$sth->execute( @bind_params ); |
578 |
|
578 |
|
579 |
my $count = 0; |
579 |
my $count = 0; |
|
|
580 |
my $format = $args{metadataPrefix} || $token->{metadata_prefix}; |
580 |
while ( my ($biblionumber, $timestamp) = $sth->fetchrow ) { |
581 |
while ( my ($biblionumber, $timestamp) = $sth->fetchrow ) { |
581 |
$count++; |
582 |
$count++; |
582 |
if ( $count > $max ) { |
583 |
if ( $count > $max ) { |
Lines 591-597
sub new {
Link Here
|
591 |
); |
592 |
); |
592 |
last; |
593 |
last; |
593 |
} |
594 |
} |
594 |
my $marcxml = $repository->get_biblio_marcxml($biblionumber, $args{metadataPrefix}); |
595 |
my $marcxml = $repository->get_biblio_marcxml($biblionumber, $format); |
595 |
my $oai_sets = GetOAISetsBiblio($biblionumber); |
596 |
my $oai_sets = GetOAISetsBiblio($biblionumber); |
596 |
my @setSpecs; |
597 |
my @setSpecs; |
597 |
foreach (@$oai_sets) { |
598 |
foreach (@$oai_sets) { |
598 |
- |
|
|