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