|
Lines 961-974
sub checkauth {
Link Here
|
| 961 |
if ($cas) { |
961 |
if ($cas) { |
| 962 |
|
962 |
|
| 963 |
# Is authentication against multiple CAS servers enabled? |
963 |
# Is authentication against multiple CAS servers enabled? |
| 964 |
|
|
|
| 965 |
if (C4::Auth_with_cas::multipleAuth && !$casparam) { |
964 |
if (C4::Auth_with_cas::multipleAuth && !$casparam) { |
| 966 |
my $casservers = C4::Auth_with_cas::getMultipleAuth(); |
965 |
my $casservers = C4::Auth_with_cas::getMultipleAuth(); |
| 967 |
# warn Data::Dumper::Dumper($casservers); |
|
|
| 968 |
my @tmplservers; |
966 |
my @tmplservers; |
| 969 |
foreach my $key (keys %$casservers) { |
967 |
foreach my $key (keys %$casservers) { |
| 970 |
warn $key, $casservers->{$key}; |
968 |
push @tmplservers, {name => $key, value => login_cas_url($query, $key) . "?cas=$key" }; |
| 971 |
push @tmplservers, {name => $key, value => login_cas_url($query, $key)}; |
|
|
| 972 |
} |
969 |
} |
| 973 |
#warn Data::Dumper::Dumper(\@tmplservers); |
970 |
#warn Data::Dumper::Dumper(\@tmplservers); |
| 974 |
$template->param( |
971 |
$template->param( |
| 975 |
- |
|
|