Add 901c print tool.
authorRobin H. Johnson <rjohnson@sitka.bclibraries.ca>
Mon, 24 Oct 2011 21:47:35 +0000 (14:47 -0700)
committerRobin H. Johnson <rjohnson@sitka.bclibraries.ca>
Mon, 24 Oct 2011 21:47:35 +0000 (14:47 -0700)
marc_export_custom/print901c.pl [new file with mode: 0755]

diff --git a/marc_export_custom/print901c.pl b/marc_export_custom/print901c.pl
new file mode 100755 (executable)
index 0000000..c45b8ad
--- /dev/null
@@ -0,0 +1,13 @@
+#!/usr/bin/perl
+use MARC::Batch;
+use strict;
+use warnings;
+
+
+my $batch = MARC::Batch->new( 'USMARC', @ARGV );
+$batch->strict_off();
+$batch->warnings_off();
+
+while ( my $marc = $batch->next ) {
+    print $marc->subfield(901,"c"), "\n";
+}