From 198bae17b1ebd42f4c1ce3b21e13b7ad7b844b64 Mon Sep 17 00:00:00 2001 From: Henri-Damien LAURENT Date: Fri, 16 Oct 2009 16:26:42 +0200 Subject: [PATCH] remove use of 2xx$3 in Building hierarchy --- C4/AuthoritiesMarc.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm index 72d0992199..aef8b6c60e 100644 --- a/C4/AuthoritiesMarc.pm +++ b/C4/AuthoritiesMarc.pm @@ -1108,7 +1108,7 @@ sub BuildUnimarcHierarchy{ my $record = shift @_; my $class = shift @_; my $authid_constructed = shift @_; - my $authid=$record->subfield('2..','3'); + my $authid=$record->field('001')->data(); my %cell; my $parents=""; my $children=""; my (@loopparents,@loopchildren); -- 2.39.5