Bug 8692: Authorities search form does not correspond to current search query

[koha.git] / authorities / detail.pl

diff --git a/authorities/detail.pl b/authorities/detail.pl
index d4f2c67..4c96434 100755 (executable)
--- a/authorities/detail.pl
+++ b/authorities/detail.pl
@@ -106,7 +106,7 @@ sub build_tabs {
                       my @subf=$field->subfields;
                   # loop through each subfield
                       for my $i (0..$#subf) {
-                        $subf[$i][0] = "@" unless $subf[$i][0];
+                        $subf[$i][0] = "@" unless defined $subf[$i][0];
                         next
                         if (
                             $tagslib->{ $field->tag() }->{ $subf[$i][0] }->{tab}
@@ -172,8 +172,7 @@ my ($template, $loggedinuser, $cookie)
 
 my $authid = $query->param('authid');
 
-# Using default authtypecode, so all fields are seen
-my $authtypecode = '';
+my $authtypecode = GetAuthTypeCode($authid);
 $tagslib = &GetTagsLabels(1,$authtypecode);
 
 # Build list of authtypes for showing them
@@ -242,5 +241,7 @@ $template->param(authid => $authid,
                authtypetext => $authtypes->{$authtypecode}{'authtypetext'},
                authtypesloop => \@authtypesloop,
                );
+
+$template->{VARS}->{marcflavour} = C4::Context->preference("marcflavour");
 output_html_with_http_headers $query, $cookie, $template->output;