|
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 |
- |
|
|