Bug Fixing : Subtitle Support Added

[koha.git] / authorities / detail-biblio-search.pl

diff --git a/authorities/detail-biblio-search.pl b/authorities/detail-biblio-search.pl
index 0f3b976..204dd57 100755 (executable)
--- a/authorities/detail-biblio-search.pl
+++ b/authorities/detail-biblio-search.pl
@@ -39,7 +39,7 @@ parameters tables.
 
 
 use strict;
-require Exporter;
+
 use C4::AuthoritiesMarc;
 use C4::Auth;
 use C4::Context;
@@ -77,8 +77,7 @@ my $tag;
 # loop through each tab 0 through 9
 # for (my $tabloop = 0; $tabloop<=10;$tabloop++) {
 # loop through each tag
-       my @fields = $record->fields();
-       my @loop_data =();
+my @fields = $record->fields();
        foreach my $field (@fields) {
                        my @subfields_data;
                # if tag <10, there's no subfield, use the "@" trick
@@ -132,9 +131,6 @@ foreach my $thisauthtype (keys %$authtypes) {
 
 $template->param(authid => $authid,
                authtypesloop => \@authtypesloop, index => $index,
-               intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
-               intranetstylesheet => C4::Context->preference("intranetstylesheet"),
-               IntranetNav => C4::Context->preference("IntranetNav"),
                );
 output_html_with_http_headers $query, $cookie, $template->output;