BuildUnimarcHierarchies : Fixing infinite loop

When referenced authority in 5XX$3 would be the same as the current authid, the script would get into infinite loop

diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm
index 95e0655..7d9a2b4 100644 (file)
--- a/C4/AuthoritiesMarc.pm
+++ b/C4/AuthoritiesMarc.pm
@@ -1060,6 +1060,7 @@ sub BuildUnimarcHierarchies{
     foreach my $field ($record->field('5..')){
       if ($field->subfield('5') && $field->subfield('5') eq 'g'){
                my $subfauthid=_get_authid_subfield($field);
+        next if ($subfauthid eq $authid);
         my $parentrecord = GetAuthority($subfauthid);
         my $localresult=$hierarchies;
         my $trees;