From acdd0902460305f98ccb626402130df78f4b14db Mon Sep 17 00:00:00 2001
From: Matthias Meusburger <matthias.meusburger@biblibre.com>
Date: Thu, 30 Apr 2009 11:04:21 +0200
Subject: [PATCH] Moved CAS configuration from config file to sysprefs

---
 C4/Auth.pm          | 2 +-
 C4/Auth_with_cas.pm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/C4/Auth.pm b/C4/Auth.pm
index e1d8003ec6..b84e40d1a6 100755
--- a/C4/Auth.pm
+++ b/C4/Auth.pm
@@ -43,7 +43,7 @@ BEGIN {
     @EXPORT_OK = qw(&check_api_auth &get_session &check_cookie_auth &checkpw &get_all_subpermissions &get_user_subpermissions);
     %EXPORT_TAGS = (EditPermissions => [qw(get_all_subpermissions get_user_subpermissions)]);
     $ldap = C4::Context->config('useldapserver') || 0;
-    $cas = C4::Context->config('usecasserver') || 0;
+    $cas = C4::Context->preference('casAuthentication');
     if ($ldap) {
         require C4::Auth_with_ldap;             # no import
         import  C4::Auth_with_ldap qw(checkpw_ldap);
diff --git a/C4/Auth_with_cas.pm b/C4/Auth_with_cas.pm
index 694cbbbe3c..8298dc7361 100644
--- a/C4/Auth_with_cas.pm
+++ b/C4/Auth_with_cas.pm
@@ -37,7 +37,7 @@ BEGIN {
 
 
 my $context = C4::Context->new() 	or die 'C4::Context->new failed';
-my $casserver = C4::Context->config("usecasserver") or die 'No "usecasserver" in KOHA_CONF: ' . $ENV{KOHA_CONF};
+my $casserver = C4::Context->preference('casServerUrl');
 
 sub logout_cas {
     my ($query) = @_;
-- 
2.20.1