From 6ad8c7f4eab8dd78198cca4cdba25ad80959c837 Mon Sep 17 00:00:00 2001
From: hdl <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");