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 <martin.renvoize@ptfs-europe.com>
Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>
Signed-off-by: Martin Renvoize <martin.renvoize@ptfs-europe.com>

diff --git a/opac/sco/help.pl b/opac/sco/help.pl
index 33ff6e7..8451445 100755 (executable)
--- 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 d914c28..98ded2a 100755 (executable)
--- 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;