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