my ($field)=@_;
return $field->subfield('9')||$field->subfield('3');
}
=head2 GetHeaderAuthority
$ref= &GetHeaderAuthority( $authid)
-