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 |
|
|
97 |
$uri .= "?cas=" . $casparam if (defined $casparam); |
98 |
$casparam = $defaultcasserver if (not defined $casparam); |
96 |
$casparam = $defaultcasserver if (not defined $casparam); |
99 |
$casparam = $key if (defined $key); |
97 |
$casparam = $key if (defined $key); |
100 |
my $cas = Authen::CAS::Client->new($casservers->{$casparam}); |
98 |
my $cas = Authen::CAS::Client->new($casservers->{$casparam}); |
101 |
- |
|
|