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

(-)a/t/db_dependent/Biblio.t (-3 / +3 lines)
Lines 287-293 sub run_tests { Link Here
287
    is( $data->{ title }, $title,
287
    is( $data->{ title }, $title,
288
        'ModBiblio correctly added the title field, and GetBiblioData.');
288
        'ModBiblio correctly added the title field, and GetBiblioData.');
289
    is( $data->{ isbn }, $isbn, '(ModBiblio) ISBN is still there after ModBiblio.');
289
    is( $data->{ isbn }, $isbn, '(ModBiblio) ISBN is still there after ModBiblio.');
290
    $marc = $biblio->metadata->record;
290
    $marc = $biblio->get_from_storage->metadata->record;
291
    my ( $title_field, $title_subfield ) = get_title_field();
291
    my ( $title_field, $title_subfield ) = get_title_field();
292
    is( $marc->subfield( $title_field, $title_subfield ), $title, );
292
    is( $marc->subfield( $title_field, $title_subfield ), $title, );
293
293
Lines 424-431 sub run_tests { Link Here
424
424
425
    is( GetMarcPrice( $record_for_isbn, $marcflavour ), 100,
425
    is( GetMarcPrice( $record_for_isbn, $marcflavour ), 100,
426
        "GetMarcPrice returns the correct value");
426
        "GetMarcPrice returns the correct value");
427
    my $updatedrecord = $biblio->metadata->record;
428
    my $frameworkcode = GetFrameworkCode($biblionumber);
427
    my $frameworkcode = GetFrameworkCode($biblionumber);
428
    my $updatedrecord = $biblio->metadata->record;
429
    my ( $biblioitem_tag, $biblioitem_subfield ) = GetMarcFromKohaField( "biblioitems.biblioitemnumber" );
429
    my ( $biblioitem_tag, $biblioitem_subfield ) = GetMarcFromKohaField( "biblioitems.biblioitemnumber" );
430
    die qq{No biblioitemnumber tag for framework "$frameworkcode"} unless $biblioitem_tag;
430
    die qq{No biblioitemnumber tag for framework "$frameworkcode"} unless $biblioitem_tag;
431
    my $biblioitemnumbertotest;
431
    my $biblioitemnumbertotest;
Lines 716-722 subtest 'MarcFieldForCreatorAndModifier' => sub { Link Here
716
    $c4_context->mock('userenv', sub { return { number => 321, firstname => 'Jane', surname => 'Doe'}; });
716
    $c4_context->mock('userenv', sub { return { number => 321, firstname => 'Jane', surname => 'Doe'}; });
717
    C4::Biblio::ModBiblio($record, $biblionumber, '');
717
    C4::Biblio::ModBiblio($record, $biblionumber, '');
718
718
719
    $record = $biblio->metadata->record;
719
    $record = $biblio->get_from_storage->metadata->record;
720
    is($record->subfield('998', 'a'), 123, '998$a = 123');
720
    is($record->subfield('998', 'a'), 123, '998$a = 123');
721
    is($record->subfield('998', 'b'), 'John Doe', '998$b = John Doe');
721
    is($record->subfield('998', 'b'), 'John Doe', '998$b = John Doe');
722
    is($record->subfield('998', 'c'), 321, '998$c = 321');
722
    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