From: Don McMorris <dmcmorris@esilibrary.com>
Date: Fri, 1 Aug 2008 19:37:48 +0000 (+0000)
Subject: skip holdings without a barcode
X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=commitdiff_plain;h=7ec0d3c09e888998f0263509836b593d390c27ad

skip holdings without a barcode
---

diff --git a/spit_tlc_marc_holdings.pl b/spit_tlc_marc_holdings.pl
index c1a0559..7580393 100755
--- a/spit_tlc_marc_holdings.pl
+++ b/spit_tlc_marc_holdings.pl
@@ -50,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";
+			}
         }
 
 	}