diff --git a/C4/AuthoritiesMarc.pm b/C4/AuthoritiesMarc.pm index 7e367c889f..2f14c3a9f8 100644 --- a/C4/AuthoritiesMarc.pm +++ b/C4/AuthoritiesMarc.pm @@ -1350,6 +1350,7 @@ sub _get_authid_subfield{ my ($field)=@_; return $field->subfield('9')||$field->subfield('3'); } + =head2 GetHeaderAuthority $ref= &GetHeaderAuthority( $authid)