Bug 17600: Standardize our EXPORT_OK

[srvgit] / misc / maintenance / process_record_through_filter.pl

diff --git a/misc/maintenance/process_record_through_filter.pl b/misc/maintenance/process_record_through_filter.pl
index 3b3e537..8259e31 100755 (executable)
--- a/misc/maintenance/process_record_through_filter.pl
+++ b/misc/maintenance/process_record_through_filter.pl
@@ -6,11 +6,12 @@
 
 use strict;
 use warnings;
+
+use Koha::Script;
 use Koha::RecordProcessor;
-use Data::Dumper;
-use C4::Biblio;
+use C4::Biblio qw( GetMarcBiblio );
 
-my $record = GetMarcBiblio($ARGV[0]);
+my $record = GetMarcBiblio({ biblionumber => $ARGV[0] });
 
 print "Before: " . $record->as_formatted() . "\n";
 my $processor = Koha::RecordProcessor->new( { filters => ( $ARGV[1] ) });