View | Details | Raw Unified | Return to bug 22943
Collapse All | Expand All

(-)a/opac/sco/help.pl (-2 / +2 lines)
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
}
(-)a/opac/sco/printslip.pl (-2 / +1 lines)
Lines 29-35 It is called from sco-main.pl Link Here
29
use Modern::Perl;
29
use Modern::Perl;
30
use CGI qw ( -utf8 );
30
use CGI qw ( -utf8 );
31
use C4::Context;
31
use C4::Context;
32
use C4::Auth qw/:DEFAULT get_session in_ipset/;
32
use C4::Auth qw/:DEFAULT get_session in_iprange/;
33
use C4::Output;
33
use C4::Output;
34
use C4::Members;
34
use C4::Members;
35
use C4::Koha;
35
use C4::Koha;
36
- 

Return to bug 22943