X-Git-Url: http://git.equinoxoli.org/?p=migration-tools.git;a=blobdiff_plain;f=spit_unicorn_marc_holdings.pl;h=a15dcccb525fef850b401f58168b8c2831dea91a;hp=93b385accb6daf5a1100ddc66f72a61345bbfc89;hb=be5302650d3a5137776b741b768d7354bf4af1d5;hpb=356911489c48443ec8139afe597f278c667a7fbd

diff --git a/spit_unicorn_marc_holdings.pl b/spit_unicorn_marc_holdings.pl
index 93b385a..a15dccc 100755
--- a/spit_unicorn_marc_holdings.pl
+++ b/spit_unicorn_marc_holdings.pl
@@ -43,18 +43,18 @@ foreach my $argnum ( 0 .. $#ARGV ) {
         foreach my $tag ( @tags ) {
             print join("\t",
                 $my_903a,
-                $tag->subfield('m'), # library
-                $tag->subfield('i'), # barcode
-                $tag->subfield('k'), # current location
-                $tag->subfield('l'), # home location
-                $tag->subfield('a'), # call number
-                $tag->subfield('t'), # item type
-                $tag->subfield('u'), # acq date
-                $tag->subfield('p'), # price
-                $tag->subfield('r'), # circulate flag
-                $tag->subfield('n'), # total charges
-                $tag->subfield('x'), # cat1
-                $tag->subfield('z')  # cat2
+                $tag->subfield('m') || '', # library
+                $tag->subfield('i') || '', # barcode
+                $tag->subfield('k') || '', # current location
+                $tag->subfield('l') || '', # home location
+                $tag->subfield('a') || '', # call number
+                $tag->subfield('t') || '', # item type
+                $tag->subfield('u') || '', # acq date
+                $tag->subfield('p') || '', # price
+                $tag->subfield('r') || '', # circulate flag
+                $tag->subfield('n') || '', # total charges
+                $tag->subfield('x') || '', # cat1
+                $tag->subfield('z') || ''  # cat2
             ) . "\n";
         }