From 4183dd0a11f9651484560085f2b4880ace427681 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Jean-Andr=C3=A9=20Santoni?= Date: Thu, 23 Jul 2009 15:19:23 +0200 Subject: [PATCH] This little hack makes BuildUnimarcHierarchy able to work with any 2.. field. Signed-off-by: Henri-Damien LAURENT --- C4/AuthoritiesMarc.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm index c2f7cce77f..6bfead0186 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('250','3'); + my $authid=$record->subfield('2..','3'); my %cell; my $parents=""; my $children=""; my (@loopparents,@loopchildren); @@ -1129,7 +1129,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