Bug 25147: (RM follow-up) Update pref references.

[srvgit] / opac / sco / sco-main.pl

diff --git a/opac/sco/sco-main.pl b/opac/sco/sco-main.pl
index 66b347e..83a37ac 100755 (executable)
--- a/opac/sco/sco-main.pl
+++ b/opac/sco/sco-main.pl
@@ -35,7 +35,7 @@ use Modern::Perl;
 
 use CGI qw ( -utf8 );
 
-use C4::Auth qw(get_template_and_user checkpw in_ipset);
+use C4::Auth qw(get_template_and_user checkpw in_iprange);
 use C4::Koha;
 use C4::Circulation;
 use C4::Reserves;
@@ -59,7 +59,7 @@ unless (C4::Context->preference('WebBasedSelfCheck')) {
     exit;
 }
 
-unless ( in_ipset(C4::Context->preference('SelfCheckAllowByIPRanges')) ) {
+unless ( in_iprange(C4::Context->preference('SelfCheckAllowByIPRanges')) ) {
     # redirect to OPAC home if self-checkout not permitted from current IP
     print $query->redirect("/cgi-bin/koha/opac-main.pl");
     exit;
@@ -93,10 +93,10 @@ if (C4::Context->preference('SelfCheckTimeout')) {
 }
 $template->param( SelfCheckTimeout => $selfchecktimeout );
 
-# Checks policy laid out by AllowSelfCheckReturns, defaults to 'on' if preference is undefined
+# Checks policy laid out by SCOAllowCheckin, defaults to 'on' if preference is undefined
 my $allowselfcheckreturns = 1;
-if (defined C4::Context->preference('AllowSelfCheckReturns')) {
-    $allowselfcheckreturns = C4::Context->preference('AllowSelfCheckReturns');
+if (defined C4::Context->preference('SCOAllowCheckin')) {
+    $allowselfcheckreturns = C4::Context->preference('SCOAllowCheckin');
 }
 
 my $issuerid = $loggedinuser;