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}
9 use Koha
::RecordProcessor
;
13 my $record = GetMarcBiblio
($ARGV[0]);
15 print "Before: " . $record->as_formatted() . "\n";
16 my $processor = Koha
::RecordProcessor
->new( { filters
=> ( $ARGV[1] ) });
17 $record = $processor->process($record);
18 print "After : " . $record->as_formatted() . "\n";