From cf4144bca8d9a8c4010347d40558f29382d5669c Mon Sep 17 00:00:00 2001
From: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
Date: Mon, 8 Mar 2010 12:33:35 +0100
Subject: [PATCH] Fixing hierarchy processing

---
 C4/AuthoritiesMarc.pm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm
index c2c1786c1d..3e3534ff53 100644
--- a/C4/AuthoritiesMarc.pm
+++ b/C4/AuthoritiesMarc.pm
@@ -1051,9 +1051,7 @@ sub BuildUnimarcHierarchies{
   my $data = GetHeaderAuthority($authid);
   if ($data->{'authtrees'} and not $force){
     return $data->{'authtrees'};
-  } elsif ($data->{'authtrees'}){
-    $hierarchies=$data->{'authtrees'};
-  } else {
+  } elsif ($force or !($data->{authtrees})) {
     my $record = GetAuthority($authid);
     my $found;
     foreach my $field ($record->field('550')){
@@ -1079,6 +1077,9 @@ sub BuildUnimarcHierarchies{
     }
     #Unless there is no ancestor, I am alone.
     $hierarchies="$authid" unless ($hierarchies);
+  } 
+  else {
+    $hierarchies=$data->{'authtrees'};
   }
   AddAuthorityTrees($authid,$hierarchies);
   return $hierarchies;
-- 
2.20.1