3 # This script is intended for testing RecordProcessor filters. To use it
4 # run the script like so:
5 # > perl process_record_through_filter.pl ${BIBLIONUMBER} ${FILTER}
12 use Koha::RecordProcessor;
14 my $biblio = Koha::Biblios->find($ARGV[0]);
16 print "Biblio not found\n";
19 my $record = $biblio->metadata->record;
21 print "Before: " . $record->as_formatted() . "\n";
22 my $processor = Koha::RecordProcessor->new( { filters => ( $ARGV[1] ) });
23 $record = $processor->process($record);
24 print "After : " . $record->as_formatted() . "\n";