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

(-)a/C4/Auth_with_cas.pm (-3 / +5 lines)
Lines 91-100 sub login_cas { Link Here
91
sub login_cas_url {
91
sub login_cas_url {
92
92
93
    my ($query, $key) = @_;
93
    my ($query, $key) = @_;
94
    my $uri = C4::Context->preference('OPACBaseURL') . $query->script_name();
94
    my $uri = C4::Context->preference('OPACBaseURL') . $query->url( -absolute => 1, -query => 1 );
95
    my $casparam = $query->param('cas');
95
    my $casparam = $query->param('cas');
96
    # FIXME: This should be more generic and handle whatever parameters there might be
96
    # FIXME: This should be more generic and handle whatever parameters there might be
97
    $uri .= "?cas=" . $casparam if (defined $casparam);
97
    if (defined $casparam) {
98
        $uri .= ($uri =~ m/\?/ ) ? '&' : '?';
99
        $uri .= "cas=$casparam" ;
100
    }
98
    $casparam = $defaultcasserver if (not defined $casparam);
101
    $casparam = $defaultcasserver if (not defined $casparam);
99
    $casparam = $key if (defined $key);
102
    $casparam = $key if (defined $key);
100
    my $cas = Authen::CAS::Client->new($casservers->{$casparam});
103
    my $cas = Authen::CAS::Client->new($casservers->{$casparam});
101
- 

Return to bug 10029