Lines 353-360
subtest 'Bug 19725: OAI-PMH ListRecords and ListIdentifiers should use biblio_me
Link Here
|
353 |
$record->append_fields(MARC::Field->new(999, '', '', z => '_')); |
353 |
$record->append_fields(MARC::Field->new(999, '', '', z => '_')); |
354 |
ModBiblio( $record, $biblionumber ); |
354 |
ModBiblio( $record, $biblionumber ); |
355 |
my $from_dt = dt_from_string( |
355 |
my $from_dt = dt_from_string( |
356 |
Koha::Biblio::Metadatas->search({ biblionumber => $biblionumber }) |
356 |
Koha::Biblio::Metadatas->find({ biblionumber => $biblionumber, format => 'marcxml', marcflavour => 'MARC21' })->timestamp |
357 |
->next->timestamp ); |
357 |
); |
358 |
my $from = $from_dt->ymd . 'T' . $from_dt->hms . 'Z'; |
358 |
my $from = $from_dt->ymd . 'T' . $from_dt->hms . 'Z'; |
359 |
$oaidc[0]->{header}->{datestamp} = $from; |
359 |
$oaidc[0]->{header}->{datestamp} = $from; |
360 |
|
360 |
|
361 |
- |
|
|