misc/maintenance/process_record_through_filter.pl

   1 #!/usr/bin/perl
   2
   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}
   6
   7 use strict;
   8 use warnings;
   9
  10 use Koha::Script;
  11 use Koha::Biblios;
  12 use Koha::RecordProcessor;
  13
  14 my $biblio = Koha::Biblios->find($ARGV[0]);
  15 unless ( $biblio ) {
  16     print "Biblio not found\n";
  17     exit;
  18 }
  19 my $record = $biblio->metadata->record;
  20
  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";