From a2b7721969e23bcdbf0841473e533bcbc40f6934 Mon Sep 17 00:00:00 2001 From: Dan Scott Date: Tue, 29 Nov 2011 23:09:47 -0500 Subject: [PATCH] Prevent null 852 $a in marc_export 852 $a is supposed to correspond to the institution holding the item from which access is given, according to the MARC Format for Holdings Data specification. As the org unit shortnames typically don't correspond to one of the MARC Code List for Organization entries, we've assumed that users will define the --location parameter; however, if that parameter isn't defined, the empty string is used and an empty subfield is generated. This, in turn, makes other MARC-parsing tools unhappy. So, only generate an 852 $a if we have an actual value for the --location parameter. Signed-off-by: Dan Scott Signed-off-by: Mike Rylander --- Open-ILS/src/support-scripts/marc_export.in | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/Open-ILS/src/support-scripts/marc_export.in b/Open-ILS/src/support-scripts/marc_export.in index c0ba79638e..588f8ddd7f 100755 --- a/Open-ILS/src/support-scripts/marc_export.in +++ b/Open-ILS/src/support-scripts/marc_export.in @@ -400,10 +400,8 @@ sub add_bib_holdings { for my $cp ( @$cn_map_list ) { $count{cp}++; - $r->append_fields( - MARC::Field->new( - 852, '4', '', - a => $location, + $r->insert_grouped_field( MARC::Field->new( '852', '4', ' ', + ($location ? ( 'a' => $location ) : ()), b => $orgs{$cn->owning_lib}->shortname, b => $orgs{$cp->circ_lib}->shortname, c => $shelves{$cp->location}->name, -- 2.11.0