bc05b5d163
This patch adds the Koha::Indexer::RecordNormalizer and Koha::Indexer::MARC::RecordNormalizer::EmbedSeeFromHeadings packages to enable the inclusion of alternate forms of headings in bibliographic searches. When the new syspref IncludeSeeFromInSearches is turned on (default is off) rebuild_zebra.pl will insert see from headings from authority records into bibliographic records when indexing, so that a search on an obsolete term will turn up relevant records. To test: 1) Enable IncludeSeeFromInSearches 2) Add a heading that has an alternate form to a record (for example, "Cooking" has the alternate form "Cookery," if you have authority records from LC) 3) Index the zebraqueue (or reindex if you haven't indexed your system yet) 4) Confirm that if you search for "Cookery" you get the record you just modified Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com> Rebased on master 5 August 2012 Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com> Rebased on master 11 September 2012 Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de> Also checked: - Verified database update works correctly - Checked system preference and its description - Checked staff/opac detail pages with feature on/off - Checked staff/opac search facets - Downloaded and tested records in various formats - Tried different searches for 'see from' entries of authorities - Ran all unit tests No problems found.
80 lines
2.8 KiB
Perl
Executable file
80 lines
2.8 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# Copyright 2012 C & P Bibliography Services
|
|
#
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it under the
|
|
# terms of the GNU General Public License as published by the Free Software
|
|
# Foundation; either version 2 of the License, or (at your option) any later
|
|
# version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
|
|
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License along
|
|
# with Koha; if not, write to the Free Software Foundation, Inc.,
|
|
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
|
|
use strict;
|
|
use warnings;
|
|
use File::Spec;
|
|
use MARC::Record;
|
|
|
|
use Test::More;
|
|
|
|
BEGIN {
|
|
use_ok('Koha::RecordProcessor');
|
|
}
|
|
|
|
my $isbn = '0590353403';
|
|
my $title = 'Foundation';
|
|
my $marc_record=MARC::Record->new;
|
|
my $field = MARC::Field->new('020','','','a' => $isbn);
|
|
$marc_record->append_fields($field);
|
|
$field = MARC::Field->new('245','','','a' => $title);
|
|
$marc_record->append_fields($field);
|
|
|
|
|
|
my $filterdir = File::Spec->rel2abs('Koha/Filter') . '/MARC';
|
|
|
|
opendir(my $dh, $filterdir);
|
|
my @installed_filters = map { ( /\.pm$/ && -f "$filterdir/$_" && s/\.pm$// ) ? "Koha::Filters::MARC::$_" : () } readdir($dh);
|
|
my @available_filters = Koha::RecordProcessor::AvailableFilters();
|
|
|
|
foreach my $filter (@installed_filters) {
|
|
ok(grep($filter, @available_filters), "Found filter $filter");
|
|
}
|
|
|
|
my $marc_filters = grep (/MARC/, @available_filters);
|
|
is(scalar Koha::RecordProcessor::AvailableFilters('MARC'), $marc_filters, 'Retrieved list of MARC filters');
|
|
|
|
my $processor = Koha::RecordProcessor->new( { filters => ( 'ABCD::EFGH::IJKL' ) } );
|
|
|
|
is(ref($processor), 'Koha::RecordProcessor', 'Created record processor with invalid filter');
|
|
|
|
is($processor->process($marc_record), $marc_record, 'Process record with empty processor');
|
|
|
|
$processor = Koha::RecordProcessor->new( { filters => ( 'Null' ) } );
|
|
is(ref($processor->filters->[0]), 'Koha::Filter::MARC::Null', 'Created record processor with implicitly scoped Null filter');
|
|
|
|
$processor = Koha::RecordProcessor->new( { filters => ( 'Koha::Filter::MARC::Null' ) } );
|
|
is(ref($processor->filters->[0]), 'Koha::Filter::MARC::Null', 'Created record processor with explicitly scoped Null filter');
|
|
|
|
is($processor->process($marc_record), $marc_record, 'Process record');
|
|
|
|
$processor->bind($marc_record);
|
|
|
|
is($processor->record, $marc_record, 'Bound record to processor');
|
|
|
|
is($processor->process(), $marc_record, 'Filter bound record');
|
|
|
|
eval {
|
|
$processor = Koha::RecordProcessor->new( { filters => ( 'Koha::Filter::MARC::Null' ) } );
|
|
undef $processor;
|
|
};
|
|
|
|
ok(!$@, 'Destroyed processor successfully');
|
|
|
|
done_testing();
|