From: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
Date: Fri, 16 Oct 2009 14:26:42 +0000 (+0200)
Subject: remove use of 2xx$3 in Building hierarchy
X-Git-Tag: v3.00.04_final~18
X-Git-Url: http://git.rot13.org/?p=koha.git;a=commitdiff_plain;h=198bae17b1ebd42f4c1ce3b21e13b7ad7b844b64

remove use of 2xx$3 in Building hierarchy
---

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);