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 |
- |
|
|