Attachment #135666 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 287-293 sub run_tests { Link Here

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