Lines 24-34
Link Here
|
24 |
use Modern::Perl; |
24 |
use Modern::Perl; |
25 |
use CGI qw ( -utf8 ); |
25 |
use CGI qw ( -utf8 ); |
26 |
|
26 |
|
27 |
use C4::Auth qw(get_template_and_user in_ipset); |
27 |
use C4::Auth qw(get_template_and_user in_iprange); |
28 |
use C4::Output qw(output_html_with_http_headers); |
28 |
use C4::Output qw(output_html_with_http_headers); |
29 |
|
29 |
|
30 |
my $query = new CGI; |
30 |
my $query = new CGI; |
31 |
unless ( in_ipset(C4::Context->preference('SelfCheckAllowByIPRanges')) ) { |
31 |
unless ( in_iprange(C4::Context->preference('SelfCheckAllowByIPRanges')) ) { |
32 |
print $query->redirect("/cgi-bin/koha/opac-main.pl"); |
32 |
print $query->redirect("/cgi-bin/koha/opac-main.pl"); |
33 |
exit; |
33 |
exit; |
34 |
} |
34 |
} |