From da5024e5c26a75c106504809b48325532c402510 Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Mon, 9 Mar 2020 09:17:50 +0000 Subject: [PATCH] Bug 22943: (QA follow-up) Add new cases A few additional cases were introduced since the original bug was authored. This patch simply catches those cases and makes the same change. Signed-off-by: Martin Renvoize Signed-off-by: Katrin Fischer Signed-off-by: Martin Renvoize --- opac/sco/help.pl | 4 ++-- opac/sco/printslip.pl | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/opac/sco/help.pl b/opac/sco/help.pl index 33ff6e7a35..845144558c 100755 --- a/opac/sco/help.pl +++ b/opac/sco/help.pl @@ -24,11 +24,11 @@ use Modern::Perl; use CGI qw ( -utf8 ); -use C4::Auth qw(get_template_and_user in_ipset); +use C4::Auth qw(get_template_and_user in_iprange); use C4::Output qw(output_html_with_http_headers); my $query = new CGI; -unless ( in_ipset(C4::Context->preference('SelfCheckAllowByIPRanges')) ) { +unless ( in_iprange(C4::Context->preference('SelfCheckAllowByIPRanges')) ) { print $query->redirect("/cgi-bin/koha/opac-main.pl"); exit; } diff --git a/opac/sco/printslip.pl b/opac/sco/printslip.pl index d914c288cc..98ded2a5c6 100755 --- a/opac/sco/printslip.pl +++ b/opac/sco/printslip.pl @@ -29,7 +29,7 @@ It is called from sco-main.pl use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; -use C4::Auth qw/:DEFAULT get_session in_ipset/; +use C4::Auth qw/:DEFAULT get_session in_iprange/; use C4::Output; use C4::Members; use C4::Koha; -- 2.39.5