From 5cef4c16265891212f5d44d4786c374dd7586062 Mon Sep 17 00:00:00 2001
From: "Robin H. Johnson" <rjohnson@sitka.bclibraries.ca>
Date: Mon, 24 Oct 2011 14:47:35 -0700
Subject: [PATCH] Add 901c print tool.

---
 marc_export_custom/print901c.pl | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100755 marc_export_custom/print901c.pl

diff --git a/marc_export_custom/print901c.pl b/marc_export_custom/print901c.pl
new file mode 100755
index 0000000..c45b8ad
--- /dev/null
+++ b/marc_export_custom/print901c.pl
@@ -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";
+}
-- 
2.3.6