View | Details | Raw Unified | Return to bug 9072
Collapse All | Expand All

(-)a/C4/Biblio.pm (-3 / +5 lines)
Lines 663-674 safest place. Link Here
663
sub _check_valid_auth_link {
663
sub _check_valid_auth_link {
664
    my ( $authid, $field ) = @_;
664
    my ( $authid, $field ) = @_;
665
665
666
    require C4::AuthoritiesMarc;
666
    my $field_value = $field->as_string('abcdefghijklmnopqrstuvwxyz');
667
    return unless $field_value;
667
668
669
    require C4::AuthoritiesMarc;
668
    my $authorized_heading =
670
    my $authorized_heading =
669
      C4::AuthoritiesMarc::GetAuthorizedHeading( { 'authid' => $authid } );
671
      C4::AuthoritiesMarc::GetAuthorizedHeading( { 'authid' => $authid } );
672
    return unless $authorized_heading;
670
673
671
   return ($field->as_string('abcdefghijklmnopqrstuvwxyz') eq $authorized_heading);
674
    return ($field_value eq $authorized_heading);
672
}
675
}
673
676
674
=head2 GetRecordValue
677
=head2 GetRecordValue
675
- 

Return to bug 9072