|
Lines 87-97
foreach my $index ( 0 .. NUMBER_OF_MARC_RECORDS - 1 ) {
Link Here
|
| 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 |
|