use CGI qw ( -utf8 );
use MARC::Record;
use C4::Koha;
+use Koha::Authorities;
+
+use Koha::Authority::Types;
our ($tagslib);
my $authid = $query->param('authid');
-my $authtypecode = GetAuthTypeCode($authid);
+my $authtypecode = Koha::Authorities->find($authid)->authtypecode;
$tagslib = &GetTagsLabels(1,$authtypecode);
# Build list of authtypes for showing them
-my $authtypes = getauthtypes;
-my @authtypesloop;
-
-foreach my $thisauthtype (sort { $authtypes->{$b} cmp $authtypes->{$a} } keys %$authtypes) {
- my %row =(value => $thisauthtype,
- selected => $thisauthtype eq $authtypecode,
- authtypetext => $authtypes->{$thisauthtype}{'authtypetext'},
- );
- push @authtypesloop, \%row;
-}
+my $authority_types = Koha::Authority::Types->search({}, { order_by => ['authtypecode']});
my $record=GetAuthority($authid);
# authid invalid
$template->param ( errauthid => $authid,
unknownauthid => 1,
- authtypesloop => \@authtypesloop );
+ authority_types => $authority_types, );
output_html_with_http_headers $query, $cookie, $template->output;
exit;
}
build_tabs ($template, $record, $dbh,"",$query);
-$template->param(authid => $authid,
- count => $count,
- biblio_fields => $biblio_fields,
- authtypetext => $authtypes->{$authtypecode}{'authtypetext'},
- authtypesloop => \@authtypesloop,
- );
+$template->param(
+ authid => $authid,
+ count => $count,
+ biblio_fields => $biblio_fields,
+ authtypetext => $authority_types->find($authtypecode)->authtypetext,
+ authtypecode => $authtypecode,
+ authority_types => $authority_types,
+);
$template->{VARS}->{marcflavour} = C4::Context->preference("marcflavour");
output_html_with_http_headers $query, $cookie, $template->output;