@@ -, +, @@ --- opac/sco/help.pl | 4 ++-- opac/sco/printslip.pl | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) --- a/opac/sco/help.pl +++ a/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; } --- a/opac/sco/printslip.pl +++ a/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; --