use C4::Context;
use C4::Koha;
+use Koha::Authority::Types;
+
+use List::MoreUtils qw( uniq );
sub string_search {
my ($searchstring,$authtypecode)=@_;
push @$authorised_values, 'itemtypes';
# build thesaurus categories list
- my @authtypes = (sort keys %{C4::Koha::getauthtypes()});
+ my @authtypes = uniq( "", map { $_->authtypecode } Koha::Authority::Types->search );
# build value_builder list
my @value_builder=('');
my @kohafield = ''.$input->param('kohafield');
my @tab = $input->param('tab');
my @seealso = $input->param('seealso');
- my @hidden;
my @ohidden = $input->param('ohidden');
#my @ihidden = $input->param('ihidden');
#my @ehidden = $input->param('ehidden');