Attachment #111527 for bug #19353

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




    if (C4::Context->preference('marcflavour') eq 'UNIMARC') {
        $record->append_fields( MARC::Field->new('101', '', '', 'a' => "lng" ) );
        $record->append_fields( MARC::Field->new('200', '', '', 'a' => "Title $index" ) );
        $record->append_fields( MARC::Field->new('952', '', '', 'a' => "Code" ) );
    } else {
        $record->append_fields( MARC::Field->new('008', '                                   lng' ) );
        $record->append_fields( MARC::Field->new('245', '', '', 'a' => "Title $index" ) );
        $record->append_fields( MARC::Field->new('952', '', '', 'a' => "Code" ) );
    }
    my ($biblionumber) = AddBiblio($record, '');
    my $timestamp = $base_datetime->ymd . ' ' .$base_datetime->hms;

    $timestamp =~ s/ /T/;
    $record = GetMarcBiblio({ biblionumber => $biblionumber });
    my $record_transformed = $record->clone;
    $record_transformed->delete_fields( $record_transformed->field('952'));
    $record_transformed = XMLin($record_transformed->as_xml_record);
    $record = XMLin($record->as_xml_record);
    push @header, { datestamp => $timestamp, identifier => "TEST:$biblionumber" };

        }
    },
});
t::lib::Mocks::mock_preference("OAI-PMH:ConfFile" => '');

restore_time();


Lines 3-7 format: Link Here

(-)a/t/db_dependent/OAI/oaiconf.yaml (-2 / +1 lines)
3	metadataPrefix: marxml	3	metadataPrefix: marxml
4	metadataNamespace: http://www.loc.gov/MARC21/slim http://www.loc.gov/standards/marcxml/schema/MARC21slim	4	metadataNamespace: http://www.loc.gov/MARC21/slim http://www.loc.gov/standards/marcxml/schema/MARC21slim
5	schema: http://www.loc.gov/MARC21/slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd	5	schema: http://www.loc.gov/MARC21/slim http://www.loc.gov/standards/marcxml/schema/MARC21slim.xsd
6	xsl_file: koha-tmpl/intranet-tmpl/prog/en/xslt/Del995.xsl	6	xsl_file: koha-tmpl/intranet-tmpl/prog/en/xslt/Del952.xsl
7	include_items: 0	7	include_items: 0
8	-

Return to bug 19353

Lines 87-97 foreach my $index ( 0 .. NUMBER_OF_MARC_RECORDS - 1 ) { Link Here

(-)a/t/db_dependent/OAI/Server.t (-4 / +4 lines)
87	if (C4::Context->preference('marcflavour') eq 'UNIMARC') {	87	if (C4::Context->preference('marcflavour') eq 'UNIMARC') {
88	$record->append_fields( MARC::Field->new('101', '', '', 'a' => "lng" ) );	88	$record->append_fields( MARC::Field->new('101', '', '', 'a' => "lng" ) );
89	$record->append_fields( MARC::Field->new('200', '', '', 'a' => "Title $index" ) );	89	$record->append_fields( MARC::Field->new('200', '', '', 'a' => "Title $index" ) );
90	$record->append_fields( MARC::Field->new('995', '', '', 'a' => "Code" ) );	90	$record->append_fields( MARC::Field->new('952', '', '', 'a' => "Code" ) );
91	} else {	91	} else {
92	$record->append_fields( MARC::Field->new('008', ' lng' ) );	92	$record->append_fields( MARC::Field->new('008', ' lng' ) );
93	$record->append_fields( MARC::Field->new('245', '', '', 'a' => "Title $index" ) );	93	$record->append_fields( MARC::Field->new('245', '', '', 'a' => "Title $index" ) );
94	$record->append_fields( MARC::Field->new('995', '', '', 'a' => "Code" ) );	94	$record->append_fields( MARC::Field->new('952', '', '', 'a' => "Code" ) );
95	}	95	}
96	my ($biblionumber) = AddBiblio($record, '');	96	my ($biblionumber) = AddBiblio($record, '');
97	my $timestamp = $base_datetime->ymd . ' ' .$base_datetime->hms;	97	my $timestamp = $base_datetime->ymd . ' ' .$base_datetime->hms;
Lines 101-107 foreach my $index ( 0 .. NUMBER_OF_MARC_RECORDS - 1 ) { Link Here
101	$timestamp =~ s/ /T/;	101	$timestamp =~ s/ /T/;
102	$record = GetMarcBiblio({ biblionumber => $biblionumber });	102	$record = GetMarcBiblio({ biblionumber => $biblionumber });
103	my $record_transformed = $record->clone;	103	my $record_transformed = $record->clone;
104	$record_transformed->delete_fields( $record_transformed->field('995'));	104	$record_transformed->delete_fields( $record_transformed->field('952'));
105	$record_transformed = XMLin($record_transformed->as_xml_record);	105	$record_transformed = XMLin($record_transformed->as_xml_record);
106	$record = XMLin($record->as_xml_record);	106	$record = XMLin($record->as_xml_record);
107	push @header, { datestamp => $timestamp, identifier => "TEST:$biblionumber" };	107	push @header, { datestamp => $timestamp, identifier => "TEST:$biblionumber" };
Lines 374-380 test_query('ListRecords marcxml with xsl transformation', Link Here
374	}	374	}
375	},	375	},
376	});	376	});
377	t::lib::Mocks::mock_preference("OAI-PMH:ConfFile" => undef);	377	t::lib::Mocks::mock_preference("OAI-PMH:ConfFile" => '');
378		378
379	restore_time();	379	restore_time();
380		380