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