track failed (evel fail) records

[migration-tools.git] / spit_tlc_marc_holdings.pl

diff --git a/spit_tlc_marc_holdings.pl b/spit_tlc_marc_holdings.pl
index c0f7fae..7580393 100755 (executable)
--- a/spit_tlc_marc_holdings.pl
+++ b/spit_tlc_marc_holdings.pl
@@ -11,26 +11,34 @@ binmode(STDOUT, ':utf8');
 binmode(STDIN, ':utf8');
 
 print join("\t",
-    "bib id",
-    "library",
-    "barcode",
-    "current location",
-    "home location",
-    "call number",
-    "item type",
-    "acq date",
-    "price",
-    "circulate flag",
-    "total charges",
-    "cat1",
-    "cat2"
+       "bib id",
+       "collection code",
+       "prefix",
+       "call number",
+       "cutter number",
+       "barcode",
+       "serial year",
+       "volume number",
+       "part subdivision 1",
+       "part subdivision 2",
+       "part subdivision 3",
+       "part subdivision 4",
+       "copy number",
+       "accession number",
+       "price",
+       "condition",
+       "magnetic media",
+       "checkin-in/check-out note"
 ) . "\n";
 
 foreach my $argnum ( 0 .. $#ARGV ) {
 
        print STDERR "Processing " . $ARGV[$argnum] . "\n";
 
-       my $batch = MARC::Batch->new('XML',$ARGV[$argnum]);
+    my $M;
+    open $M, '<:utf8', $ARGV[$argnum];
+    my $batch = MARC::Batch->new('XML',$M);
+
        $batch->strict_off();
        $batch->warnings_off();
 
@@ -42,26 +50,28 @@ foreach my $argnum ( 0 .. $#ARGV ) {
         my $my_903a = $record->field('903')->subfield('a'); # target bib id's here
         my @tags = $record->field('949');
         foreach my $tag ( @tags ) {
-            print join("\t",
-                $my_903a, # bib id
-                $tag->subfield('a') || '', # collection code
-                $tag->subfield('b') || '', # prefix
-                $tag->subfield('c') || '', # call number
-                $tag->subfield('d') || '', # cutter number
-                $tag->subfield('g') || '', # barcode
-                $tag->subfield('h') || '', # serial year
-                $tag->subfield('i') || '', # volume number
-                $tag->subfield('j') || '', # part subdivision 1
-                $tag->subfield('k') || '', # part subdivision 2
-                $tag->subfield('l') || '', # part subdivision 3
-                $tag->subfield('m') || '', # part subdivision 4
-                $tag->subfield('n') || '', # copy number
-                $tag->subfield('o') || '', # accession number
-                $tag->subfield('p') || '', # price
-                $tag->subfield('q') || '', # condition
-                $tag->subfield('5') || '', # magnetic media 
-                $tag->subfield('7') || '' # checkin-in/check-out note
-            ) . "\n";
+                       if ($tag->subfield('g')) {
+                                       print join("\t",
+                                               $my_903a, # bib id
+                                               $tag->subfield('a') || '', # collection code
+                                               $tag->subfield('b') || '', # prefix
+                                               $tag->subfield('c') || '', # call number
+                                               $tag->subfield('d') || '', # cutter number
+                                               $tag->subfield('g') || '', # barcode
+                                               $tag->subfield('h') || '', # serial year
+                                               $tag->subfield('i') || '', # volume number
+                                               $tag->subfield('j') || '', # part subdivision 1
+                                               $tag->subfield('k') || '', # part subdivision 2
+                                               $tag->subfield('l') || '', # part subdivision 3
+                                               $tag->subfield('m') || '', # part subdivision 4
+                                               $tag->subfield('n') || '', # copy number
+                                               $tag->subfield('o') || '', # accession number
+                                               $tag->subfield('p') || '', # price
+                                               $tag->subfield('q') || '', # condition
+                                               $tag->subfield('5') || '', # magnetic media 
+                                               $tag->subfield('7') || '' # checkin-in/check-out note
+                                       ) . "\n";
+                       }
         }
 
        }