Lines 970-999
sub GetAuthValCode {
Link Here
|
970 |
return $authvalcode; |
970 |
return $authvalcode; |
971 |
} |
971 |
} |
972 |
|
972 |
|
973 |
=head2 GetAuthValCodeFromField |
|
|
974 |
|
975 |
$authvalcode = GetAuthValCodeFromField($field,$subfield,$frameworkcode); |
976 |
|
977 |
C<$subfield> can be undefined |
978 |
|
979 |
=cut |
980 |
|
981 |
sub GetAuthValCodeFromField { |
982 |
my ($field,$subfield,$fwcode) = @_; |
983 |
my $dbh = C4::Context->dbh; |
984 |
$fwcode='' unless $fwcode; |
985 |
my $sth; |
986 |
if (defined $subfield) { |
987 |
$sth = $dbh->prepare('select authorised_value from marc_subfield_structure where tagfield=? and tagsubfield=? and frameworkcode=?'); |
988 |
$sth->execute($field,$subfield,$fwcode); |
989 |
} else { |
990 |
$sth = $dbh->prepare('select authorised_value from marc_tag_structure where tagfield=? and frameworkcode=?'); |
991 |
$sth->execute($field,$fwcode); |
992 |
} |
993 |
my ($authvalcode) = $sth->fetchrow_array; |
994 |
return $authvalcode; |
995 |
} |
996 |
|
997 |
=head2 GetAuthorisedValues |
973 |
=head2 GetAuthorisedValues |
998 |
|
974 |
|
999 |
$authvalues = GetAuthorisedValues([$category]); |
975 |
$authvalues = GetAuthorisedValues([$category]); |
1000 |
- |
|
|