X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=C4%2FAuthoritiesMarc.pm;h=3e3534ff5315ac880feca2d49371394aaad43b3f;hb=cf4144bca8d9a8c4010347d40558f29382d5669c;hp=c2c1786c1dc39947ce63601766533d732045127b;hpb=29e5fa7ca2cd3531ebc319f480a3ae2a983bed2c;p=koha.git

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;