projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix for Bug 3229, The "Sort By" feature for lists does not work.
[koha.git]
/
authorities
/
detail-biblio-search.pl
diff --git
a/authorities/detail-biblio-search.pl
b/authorities/detail-biblio-search.pl
index
dda7144
..
204dd57
100755
(executable)
--- a/
authorities/detail-biblio-search.pl
+++ b/
authorities/detail-biblio-search.pl
@@
-39,12
+39,11
@@
parameters tables.
use strict;
use strict;
-require Exporter;
+
use C4::AuthoritiesMarc;
use C4::Auth;
use C4::Context;
use C4::Output;
use C4::AuthoritiesMarc;
use C4::Auth;
use C4::Context;
use C4::Output;
-use C4::Interface::CGI::Output;
use CGI;
use MARC::Record;
use C4::Koha;
use CGI;
use MARC::Record;
use C4::Koha;
@@
-78,8
+77,7
@@
my $tag;
# loop through each tab 0 through 9
# for (my $tabloop = 0; $tabloop<=10;$tabloop++) {
# loop through each 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
foreach my $field (@fields) {
my @subfields_data;
# if tag <10, there's no subfield, use the "@" trick
@@
-133,9
+131,6
@@
foreach my $thisauthtype (keys %$authtypes) {
$template->param(authid => $authid,
authtypesloop => \@authtypesloop, index => $index,
$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;
);
output_html_with_http_headers $query, $cookie, $template->output;