X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=serials%2Fserials-home.pl;h=8f7cb154177c9d83a0a14dcdbe85ea3d0b953243;hb=bbb4c847b42c30ab785f21aa3195bf8831b452c6;hp=9ec03364aee7fb2703de399fc757e7832123f39f;hpb=4f44847c11add59ab7d0c55aeffac1fa2835cc1f;p=srvgit diff --git a/serials/serials-home.pl b/serials/serials-home.pl index 9ec03364ae..8f7cb15417 100755 --- a/serials/serials-home.pl +++ b/serials/serials-home.pl @@ -4,18 +4,18 @@ # # 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 2 of the License, or (at your option) any later -# version. +# 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. +# 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, write to the Free Software Foundation, Inc., -# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +# You should have received a copy of the GNU General Public License +# along with Koha; if not, see . =head1 NAME @@ -29,22 +29,20 @@ this script is the main page for serials/ =cut use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; -use C4::Branch; use C4::Context; use C4::Output; use C4::Serials; -my $query = new CGI; +my $query = CGI->new; my $routing = $query->param('routing') || C4::Context->preference("RoutingSerials"); my ( $template, $loggedinuser, $cookie ) = get_template_and_user( { - template_name => "serials/serials-home.tmpl", + template_name => "serials/serials-home.tt", query => $query, type => "intranet", - authnotrequired => 0, flagsrequired => { serials => '*' }, debug => 1, }