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

(-)a/t/db_dependent/Biblio.t (-3 / +3 lines)
Lines 285-291 sub run_tests { Link Here
285
    is( $data->{ title }, $title,
285
    is( $data->{ title }, $title,
286
        'ModBiblio correctly added the title field, and GetBiblioData.');
286
        'ModBiblio correctly added the title field, and GetBiblioData.');
287
    is( $data->{ isbn }, $isbn, '(ModBiblio) ISBN is still there after ModBiblio.');
287
    is( $data->{ isbn }, $isbn, '(ModBiblio) ISBN is still there after ModBiblio.');
288
    $marc = $biblio->metadata->record;
288
    $marc = $biblio->get_from_storage->metadata->record;
289
    my ( $title_field, $title_subfield ) = get_title_field();
289
    my ( $title_field, $title_subfield ) = get_title_field();
290
    is( $marc->subfield( $title_field, $title_subfield ), $title, );
290
    is( $marc->subfield( $title_field, $title_subfield ), $title, );
291
291
Lines 422-429 sub run_tests { Link Here
422
422
423
    is( GetMarcPrice( $record_for_isbn, $marcflavour ), 100,
423
    is( GetMarcPrice( $record_for_isbn, $marcflavour ), 100,
424
        "GetMarcPrice returns the correct value");
424
        "GetMarcPrice returns the correct value");
425
    my $updatedrecord = $biblio->metadata->record;
426
    my $frameworkcode = GetFrameworkCode($biblionumber);
425
    my $frameworkcode = GetFrameworkCode($biblionumber);
426
    my $updatedrecord = $biblio->metadata->record;
427
    my ( $biblioitem_tag, $biblioitem_subfield ) = GetMarcFromKohaField( "biblioitems.biblioitemnumber" );
427
    my ( $biblioitem_tag, $biblioitem_subfield ) = GetMarcFromKohaField( "biblioitems.biblioitemnumber" );
428
    die qq{No biblioitemnumber tag for framework "$frameworkcode"} unless $biblioitem_tag;
428
    die qq{No biblioitemnumber tag for framework "$frameworkcode"} unless $biblioitem_tag;
429
    my $biblioitemnumbertotest;
429
    my $biblioitemnumbertotest;
Lines 709-715 subtest 'MarcFieldForCreatorAndModifier' => sub { Link Here
709
    $c4_context->mock('userenv', sub { return { number => 321, firstname => 'Jane', surname => 'Doe'}; });
709
    $c4_context->mock('userenv', sub { return { number => 321, firstname => 'Jane', surname => 'Doe'}; });
710
    C4::Biblio::ModBiblio($record, $biblionumber, '');
710
    C4::Biblio::ModBiblio($record, $biblionumber, '');
711
711
712
    $record = $biblio->metadata->record;
712
    $record = $biblio->get_from_storage->metadata->record;
713
    is($record->subfield('998', 'a'), 123, '998$a = 123');
713
    is($record->subfield('998', 'a'), 123, '998$a = 123');
714
    is($record->subfield('998', 'b'), 'John Doe', '998$b = John Doe');
714
    is($record->subfield('998', 'b'), 'John Doe', '998$b = John Doe');
715
    is($record->subfield('998', 'c'), 321, '998$c = 321');
715
    is($record->subfield('998', 'c'), 321, '998$c = 321');
(-)a/t/db_dependent/Biblio/MarcOverlayRules.t (-2 / +1 lines)
Lines 785-791 subtest 'context option in ModBiblio is handled correctly' => sub { Link Here
785
785
786
    ModBiblio($saved_record, $biblionumber, '', { overlay_context => { 'source' => 'test' } });
786
    ModBiblio($saved_record, $biblionumber, '', { overlay_context => { 'source' => 'test' } });
787
787
788
    my $updated_record = $biblio->metadata->record;
788
    my $updated_record = $biblio->get_from_storage->metadata->record;
789
789
790
    $expected_record = build_record([
790
    $expected_record = build_record([
791
            # "250" field has been appended
791
            # "250" field has been appended
792
- 

Return to bug 29697