View | Details | Raw Unified | Return to bug 5630
Collapse All | Expand All

(-)a/C4/Auth.pm (-5 / +1 lines)
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
- 

Return to bug 5630