From be5302650d3a5137776b741b768d7354bf4af1d5 Mon Sep 17 00:00:00 2001 From: Jason Etheridge Date: Mon, 16 Jun 2008 06:13:03 +0000 Subject: [PATCH] handle non-existant subfields --- spit_unicorn_marc_holdings.pl | 24 ++++++++++++------------ 1 files changed, 12 insertions(+), 12 deletions(-) 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"; } -- 1.7.2.5