Lines 52-57
if (multipleAuth()) {
Link Here
|
52 |
$casservers = { 'default' => C4::Context->preference('casServerUrl') }; |
52 |
$casservers = { 'default' => C4::Context->preference('casServerUrl') }; |
53 |
} |
53 |
} |
54 |
|
54 |
|
|
|
55 |
=head1 Subroutines |
56 |
|
57 |
=cut |
58 |
|
55 |
# Is there a configuration file for multiple cas servers? |
59 |
# Is there a configuration file for multiple cas servers? |
56 |
sub multipleAuth { |
60 |
sub multipleAuth { |
57 |
return (-e qq($yamlauthfile)); |
61 |
return (-e qq($yamlauthfile)); |
Lines 228-234
sub _url_with_get_params {
Link Here
|
228 |
return $uri_base_part . $uri_params_part; |
232 |
return $uri_base_part . $uri_params_part; |
229 |
} |
233 |
} |
230 |
|
234 |
|
231 |
# CAS single logout |
235 |
=head2 logout_if_required |
|
|
236 |
|
237 |
If using CAS, this subroutine will trigger single-signout of the CAS server. |
238 |
|
239 |
=cut |
240 |
|
232 |
sub logout_if_required { |
241 |
sub logout_if_required { |
233 |
my ( $query ) = @_; |
242 |
my ( $query ) = @_; |
234 |
# Check we havent been hit by a logout call |
243 |
# Check we havent been hit by a logout call |
235 |
- |
|
|