f270c4a3b5
Navigation on the left (Normal, MARC, etc...) needs biblionumber in template variables to work. Test: 1. go to checkout history for any biblio 2. verify that normal, MARC, etc links on the left no longer work due to missing biblionumber in URL 3. apply patch and test it again Signed-off-by: Josef Moravec <josef.moravec@gmail.com> Signed-off-by: Julian Maurice <julian.maurice@biblibre.com> Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
61 lines
1.7 KiB
Perl
Executable file
61 lines
1.7 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it
|
|
# under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but
|
|
# WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with Koha; if not, see <http://www.gnu.org/licenses>.
|
|
|
|
|
|
use strict;
|
|
#use warnings; FIXME - Bug 2505
|
|
|
|
use CGI qw ( -utf8 );
|
|
use C4::Auth;
|
|
use C4::Output;
|
|
|
|
use C4::Circulation; # GetBiblioIssues
|
|
use C4::Biblio; # GetBiblio
|
|
use C4::Search; # enabled_staff_search_views
|
|
|
|
use Koha::Biblios;
|
|
|
|
my $query = new CGI;
|
|
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
|
|
{
|
|
template_name => "catalogue/issuehistory.tt",
|
|
query => $query,
|
|
type => "intranet",
|
|
authnotrequired => 0,
|
|
flagsrequired => { catalogue => 1 },
|
|
}
|
|
);
|
|
|
|
my $biblionumber = $query->param('biblionumber');
|
|
|
|
if (C4::Context->preference("HidePatronName")) {
|
|
$template->param(HidePatronName => 1);
|
|
}
|
|
|
|
my $issues = GetBiblioIssues($biblionumber);
|
|
my $biblio = Koha::Biblios->find( $biblionumber );
|
|
|
|
$template->param(
|
|
biblionumber => $biblionumber, # required for left-side navigation
|
|
biblio => $biblio,
|
|
total => scalar @$issues,
|
|
issues => $issues,
|
|
issuehistoryview => 1,
|
|
C4::Search::enabled_staff_search_views,
|
|
);
|
|
|
|
output_html_with_http_headers $query, $cookie, $template->output;
|