From 1d04f6b7c203568e667f386da4ff86256d1dfd99 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jean-Andr=C3=A9=20Santoni?= Date: Fri, 28 Aug 2009 23:47:36 +0200 Subject: [PATCH] This little hack makes BuildUnimarcHierarchy able to work with any 2.. field. --- C4/AuthoritiesMarc.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm index bc32a6c93c..3be5ee4b52 100644 --- a/C4/AuthoritiesMarc.pm +++ b/C4/AuthoritiesMarc.pm @@ -1217,7 +1217,7 @@ sub BuildUnimarcHierarchy{ my $record = shift @_; my $class = shift @_; my $authid_constructed = shift @_; - my $authid=$record->subfield('250','3'); + my $authid=$record->subfield('2..','3'); my %cell; my $parents=""; my $children=""; my (@loopparents,@loopchildren); @@ -1238,7 +1238,7 @@ sub BuildUnimarcHierarchy{ $cell{"class"}=$class; $cell{"loopauthid"}=$authid; $cell{"current_value"} =1 if $authid eq $authid_constructed; - $cell{"value"}=$record->subfield('250',"a"); + $cell{"value"}=$record->subfield('2..',"a"); return \%cell; } -- 2.39.5