d10513dfc0
Test Plan: Test Plan: Check the following files have been updated from use strict; use warnings; to use Modern::Perl; services/itemrecorddisplay.pl suggestion/suggestion.pl tags/list.pl tags/review.pl virtualshelves/sendshelf.pl help.pl changelanguage.pl koha_perl_deps.pl debian/bd-to-depends debian/build-git-snapshot debian/list-deps docs/CAS/CASProxy/examples/koha_webservice.pl docs/CAS/CASProxy/examples/proxy_cas.pl docs/CAS/CASProxy/examples/proxy_cas_callback.pl docs/CAS/CASProxy/examples/proxy_cas_data.pl Signed-off-by: Jon Knight <J.P.Knight@lboro.ac.uk> Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de> Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
77 lines
2.4 KiB
Perl
Executable file
77 lines
2.4 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# Copyright 2010 Koha Development team
|
|
#
|
|
# 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 Modern::Perl;
|
|
use C4::Templates;
|
|
use C4::Output;
|
|
# use C4::Auth;
|
|
use C4::Context;
|
|
use CGI qw ( -utf8 );
|
|
|
|
sub _help_template_file_of_url {
|
|
my $url = shift;
|
|
my $file;
|
|
if ($url =~ /koha\/(.*)\.pl/) {
|
|
$file = $1;
|
|
} else {
|
|
$file = 'mainpage';
|
|
}
|
|
$file =~ s/[^a-zA-Z0-9_\-\/]*//g;
|
|
return "help/$file.tt";
|
|
}
|
|
|
|
my $query = new CGI;
|
|
|
|
# Init the interface to get the correct language.
|
|
# This is usually set by get_template_and_user
|
|
C4::Context->interface('intranet');
|
|
|
|
# find the script that called the online help using the CGI referer()
|
|
our $refer = $query->param('url');
|
|
$refer = $query->referer() if !$refer || $refer eq 'undefined';
|
|
my $from = _help_template_file_of_url($refer);
|
|
my $htdocs = C4::Context->config('intrahtdocs');
|
|
|
|
#
|
|
# checking that the help file exist, otherwise, display nohelp.tt page
|
|
#
|
|
my ( $theme, $lang ) = C4::Templates::themelanguage( $htdocs, $from, "intranet", $query );
|
|
unless ( -e "$htdocs/$theme/$lang/modules/$from" ) {
|
|
$from = "help/nohelp.tt";
|
|
( $theme, $lang ) = C4::Templates::themelanguage( $htdocs, $from, "intranet", $query );
|
|
}
|
|
|
|
my $template = C4::Templates::gettemplate($from, 'intranet', $query);
|
|
$template->param(
|
|
referer => $refer,
|
|
intranetstylesheet => C4::Context->preference("intranetstylesheet"),
|
|
intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
|
|
);
|
|
|
|
my $help_version = C4::Context->preference("Version");
|
|
if ( $help_version =~ m|^(\d+)\.(\d{2}).*$| ) {
|
|
my $version = $1;
|
|
my $major = $2;
|
|
unless ( $major % 2 ) { $major-- };
|
|
$major = sprintf("%02d", $major);
|
|
$help_version = "$version.$major";
|
|
}
|
|
$template->param( helpVersion => $help_version );
|
|
|
|
output_html_with_http_headers $query, "", $template->output;
|