From 6ad8c7f4eab8dd78198cca4cdba25ad80959c837 Mon Sep 17 00:00:00 2001 From: hdl Date: Wed, 16 Mar 2005 17:40:00 +0000 Subject: [PATCH] Fixing process for $0 subfield --- value_builder/unimarc_field_4XX.pl | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/value_builder/unimarc_field_4XX.pl b/value_builder/unimarc_field_4XX.pl index c154633d17..e94e6bbd5c 100755 --- a/value_builder/unimarc_field_4XX.pl +++ b/value_builder/unimarc_field_4XX.pl @@ -96,17 +96,17 @@ sub plugin { my $req= $dbh->prepare("SELECT distinctrow bibid,biblionumber FROM `marc_biblio` WHERE biblionumber= ?"); $req->execute($bibnum); ($bibid,$bibnum) = $req->fetchrow; - warn "bibid :".$bibid; +# warn "bibid :".$bibid; #get marc record $marcrecord = MARCgetbiblio($dbh,$bibid); - warn "record : ".$marcrecord->as_formatted; +# warn "record : ".$marcrecord->as_formatted; # my @loop_data =(); # my $tag; # my @loop_data =(); # my @subfields_data; my $subfield_value_9=$bibid; - my $subfield_value_0=$marcrecord->field('001'); + my $subfield_value_0=$marcrecord->field('001')->data; my $subfield_value_a; if ($marcrecord->field('200')){ $subfield_value_a=$marcrecord->field('200')->subfield("f"); -- 2.39.5