@@ -, +, @@ executable --- 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 --- a/Koha/RestrictionType.pm +++ a/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; --- a/Koha/RestrictionTypes.pm +++ a/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; --- a/admin/restrictions.pl +++ a/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, }