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