From 394d06a57b92e83c34c28be45300b2a43b13066a Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Mon, 28 Mar 2022 11:00:07 +0100 Subject: [PATCH] Bug 23681: (QA follow-up) Fix license, perlcritic & executable This patch fixes the simple issues mentioned by the QA script. --- Koha/RestrictionType.pm | 20 ++++++++++---------- Koha/RestrictionTypes.pm | 20 ++++++++++---------- admin/restrictions.pl | 3 +-- t/db_dependent/RestrictionType.t | 0 t/db_dependent/RestrictionTypes.t | 0 5 files changed, 21 insertions(+), 22 deletions(-) mode change 100644 => 100755 t/db_dependent/RestrictionType.t mode change 100644 => 100755 t/db_dependent/RestrictionTypes.t diff --git a/Koha/RestrictionType.pm b/Koha/RestrictionType.pm index 7966ff1bcb..a993942ef2 100644 --- a/Koha/RestrictionType.pm +++ b/Koha/RestrictionType.pm @@ -2,18 +2,18 @@ package Koha::RestrictionType; # 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 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 . use Modern::Perl; diff --git a/Koha/RestrictionTypes.pm b/Koha/RestrictionTypes.pm index d553853aa1..60ca1e252c 100644 --- a/Koha/RestrictionTypes.pm +++ b/Koha/RestrictionTypes.pm @@ -2,18 +2,18 @@ package Koha::RestrictionTypes; # 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 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 . use Modern::Perl; diff --git a/admin/restrictions.pl b/admin/restrictions.pl index a0254ee1b6..634cc065a7 100755 --- a/admin/restrictions.pl +++ b/admin/restrictions.pl @@ -24,7 +24,7 @@ use C4::Auth qw( get_template_and_user ); use C4::Output qw( output_html_with_http_headers ); use Koha::RestrictionTypes; -my $input = new CGI; +my $input = CGI->new; my $op = $input->param('op') // 'list'; my $code = uc $input->param('code'); my @messages = (); @@ -35,7 +35,6 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( template_name => "admin/restrictions.tt", query => $input, type => "intranet", - authnotrequired => 0, flagsrequired => { parameters => 'manage_patron_restrictions' }, debug => 1, } diff --git a/t/db_dependent/RestrictionType.t b/t/db_dependent/RestrictionType.t old mode 100644 new mode 100755 diff --git a/t/db_dependent/RestrictionTypes.t b/t/db_dependent/RestrictionTypes.t old mode 100644 new mode 100755 -- 2.20.1