Attachment #134070 for bug #29697

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




    is( $data->{ title }, $title,
        'ModBiblio correctly added the title field, and GetBiblioData.');
    is( $data->{ isbn }, $isbn, '(ModBiblio) ISBN is still there after ModBiblio.');
    $marc = $biblio->get_from_storage->metadata->record;
    my ( $title_field, $title_subfield ) = get_title_field();
    is( $marc->subfield( $title_field, $title_subfield ), $title, );



    is( GetMarcPrice( $record_for_isbn, $marcflavour ), 100,
        "GetMarcPrice returns the correct value");
    my $updatedrecord = $biblio->metadata->record;
    my $frameworkcode = GetFrameworkCode($biblionumber);
    my $updatedrecord = $biblio->metadata->record;
    my ( $biblioitem_tag, $biblioitem_subfield ) = GetMarcFromKohaField( "biblioitems.biblioitemnumber" );
    die qq{No biblioitemnumber tag for framework "$frameworkcode"} unless $biblioitem_tag;
    my $biblioitemnumbertotest;

    $c4_context->mock('userenv', sub { return { number => 321, firstname => 'Jane', surname => 'Doe'}; });
    C4::Biblio::ModBiblio($record, $biblionumber, '');

    $record = $biblio->get_from_storage->metadata->record;
    is($record->subfield('998', 'a'), 123, '998$a = 123');
    is($record->subfield('998', 'b'), 'John Doe', '998$b = John Doe');
    is($record->subfield('998', 'c'), 321, '998$c = 321');

Lines 785-791 subtest 'context option in ModBiblio is handled correctly' => sub { Link Here

(-)a/t/db_dependent/Biblio/MarcOverlayRules.t (-2 / +1 lines)
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

Lines 285-291 sub run_tests { Link Here

(-)a/t/db_dependent/Biblio.t (-3 / +3 lines)
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');