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

(-)a/t/db_dependent/Biblio.t (-6 / +2 lines)
Lines 420-427 sub run_tests { Link Here
420
420
421
    is( GetMarcPrice( $record_for_isbn, $marcflavour ), 100,
421
    is( GetMarcPrice( $record_for_isbn, $marcflavour ), 100,
422
        "GetMarcPrice returns the correct value");
422
        "GetMarcPrice returns the correct value");
423
    my $newincbiblioitemnumber=$biblioitemnumber+1;
424
    $dbh->do("UPDATE biblioitems SET biblioitemnumber = ? WHERE biblionumber = ?;", undef, $newincbiblioitemnumber, $biblionumber );
425
    my $updatedrecord = GetMarcBiblio({
423
    my $updatedrecord = GetMarcBiblio({
426
        biblionumber => $biblionumber,
424
        biblionumber => $biblionumber,
427
        embed_items  => 0 });
425
        embed_items  => 0 });
Lines 434-440 sub run_tests { Link Here
434
    } else {
432
    } else {
435
        $biblioitemnumbertotest = $updatedrecord->field($biblioitem_tag)->subfield($biblioitem_subfield);
433
        $biblioitemnumbertotest = $updatedrecord->field($biblioitem_tag)->subfield($biblioitem_subfield);
436
    }
434
    }
437
    is ($newincbiblioitemnumber, $biblioitemnumbertotest, 'Check newincbiblioitemnumber');
438
435
439
    # test for GetMarcUrls
436
    # test for GetMarcUrls
440
    $marc_record->append_fields(
437
    $marc_record->append_fields(
Lines 597-610 sub create_author_field { Link Here
597
}
594
}
598
595
599
subtest 'MARC21' => sub {
596
subtest 'MARC21' => sub {
600
    plan tests => 47;
597
    plan tests => 46;
601
    run_tests('MARC21');
598
    run_tests('MARC21');
602
    $schema->storage->txn_rollback;
599
    $schema->storage->txn_rollback;
603
    $schema->storage->txn_begin;
600
    $schema->storage->txn_begin;
604
};
601
};
605
602
606
subtest 'UNIMARC' => sub {
603
subtest 'UNIMARC' => sub {
607
    plan tests => 47;
604
    plan tests => 46;
608
605
609
    # Mock the auth type data for UNIMARC
606
    # Mock the auth type data for UNIMARC
610
    $dbh->do("UPDATE auth_types SET auth_tag_to_report = '106' WHERE auth_tag_to_report = '100'") or die $dbh->errstr;
607
    $dbh->do("UPDATE auth_types SET auth_tag_to_report = '106' WHERE auth_tag_to_report = '100'") or die $dbh->errstr;
611
- 

Return to bug 29486