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

(-)a/t/db_dependent/OAI/Server.t (-5 / +8 lines)
Lines 30-36 use t::lib::Mocks; Link Here
30
30
31
use C4::Biblio;
31
use C4::Biblio;
32
use C4::Context;
32
use C4::Context;
33
34
use Koha::Biblio::Metadatas;
33
use Koha::Database;
35
use Koha::Database;
36
use Koha::DateUtils;
34
37
35
BEGIN {
38
BEGIN {
36
    use_ok('Koha::OAI::Server::DeletedRecord');
39
    use_ok('Koha::OAI::Server::DeletedRecord');
Lines 344-357 subtest 'Bug 19725: OAI-PMH ListRecords and ListIdentifiers should use biblio_me Link Here
344
    # Wait 1 second to be sure no timestamp will be equal to $from defined below
347
    # Wait 1 second to be sure no timestamp will be equal to $from defined below
345
    sleep 1;
348
    sleep 1;
346
349
347
    my $from_dt = DateTime->now;
348
    my $from = $from_dt->ymd . 'T' . $from_dt->hms . 'Z';
349
350
    # Modify record to trigger auto update of timestamp
350
    # Modify record to trigger auto update of timestamp
351
    (my $biblionumber = $marcxml[0]->{header}->{identifier}) =~ s/^.*:(.*)/$1/;
351
    (my $biblionumber = $marcxml[0]->{header}->{identifier}) =~ s/^.*:(.*)/$1/;
352
    my $record = GetMarcBiblio({biblionumber => $biblionumber});
352
    my $record = GetMarcBiblio({biblionumber => $biblionumber});
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(
356
        Koha::Biblio::Metadatas->search({ biblionumber => $biblionumber })
357
          ->next->timestamp );
358
    my $from = $from_dt->ymd . 'T' . $from_dt->hms . 'Z';
355
    $oaidc[0]->{header}->{datestamp} = $from;
359
    $oaidc[0]->{header}->{datestamp} = $from;
356
360
357
    test_query(
361
    test_query(
358
- 

Return to bug 20191