use strict;
-require Exporter;
+
use C4::AuthoritiesMarc;
use C4::Auth;
use C4::Context;
}
if ($#subfields_data>=0) {
my %tag_data;
- $tag_data{tag}=$field->tag().' - '. $tagslib->{$field->tag()}->{lib};
+ $tag_data{tag}=$field->tag(). ' '
+ . C4::Koha::display_marc_indicators($field)
+ . ' - '
+ . $tagslib->{$field->tag()}->{lib};
$tag_data{subfield} = \@subfields_data;
push (@loop_data, \%tag_data);
}
my $authtypes = getauthtypes;
my @authtypesloop;
-foreach my $thisauthtype (keys %$authtypes) {
+foreach my $thisauthtype (sort { $authtypes->{$b} cmp $authtypes->{$a} } keys %$authtypes) {
my $selected = 1 if $thisauthtype eq $authtypecode;
my %row =(value => $thisauthtype,
selected => $selected,