d5986c9b97
Change parameters to a hashref. Signed-off-by: Josef Moravec <josef.moravec@gmail.com> Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> Looks good to me. Two calls in migration_tools/22_to_30 still in old style. Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
18 lines
548 B
Perl
Executable file
18 lines
548 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# This script is intended for testing RecordProcessor filters. To use it
|
|
# run the script like so:
|
|
# > perl process_record_through_filter.pl ${BIBLIONUMBER} ${FILTER}
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Koha::RecordProcessor;
|
|
use Data::Dumper;
|
|
use C4::Biblio;
|
|
|
|
my $record = GetMarcBiblio({ biblionumber => $ARGV[0] });
|
|
|
|
print "Before: " . $record->as_formatted() . "\n";
|
|
my $processor = Koha::RecordProcessor->new( { filters => ( $ARGV[1] ) });
|
|
$record = $processor->process($record);
|
|
print "After : " . $record->as_formatted() . "\n";
|