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

(-)a/C4/Koha.pm (-25 lines)
Lines 896-925 sub GetAuthValCode { Link Here
896
	return $authvalcode;
896
	return $authvalcode;
897
}
897
}
898
898
899
=head2 GetAuthValCodeFromField
900
901
  $authvalcode = GetAuthValCodeFromField($field,$subfield,$frameworkcode);
902
903
C<$subfield> can be undefined
904
905
=cut
906
907
sub GetAuthValCodeFromField {
908
	my ($field,$subfield,$fwcode) = @_;
909
	my $dbh = C4::Context->dbh;
910
	$fwcode='' unless $fwcode;
911
	my $sth;
912
	if (defined $subfield) {
913
	    $sth = $dbh->prepare('select authorised_value from marc_subfield_structure where tagfield=? and tagsubfield=? and frameworkcode=?');
914
	    $sth->execute($field,$subfield,$fwcode);
915
	} else {
916
	    $sth = $dbh->prepare('select authorised_value from marc_tag_structure where tagfield=? and frameworkcode=?');
917
	    $sth->execute($field,$fwcode);
918
	}
919
	my ($authvalcode) = $sth->fetchrow_array;
920
	return $authvalcode;
921
}
922
923
=head2 GetAuthorisedValues
899
=head2 GetAuthorisedValues
924
900
925
  $authvalues = GetAuthorisedValues([$category]);
901
  $authvalues = GetAuthorisedValues([$category]);
926
- 

Return to bug 17249