Transport authChoice in CAS authentication

This commit is contained in:
Clément Oudot 2010-09-03 14:24:19 +00:00
parent 41151228ff
commit 9e38c5ea2a

View File

@ -41,11 +41,15 @@ sub extractFormInfo {
# Local URL
my $local_url = $self->url();
# Add URL parameter if present
# Add request state parameters
if ( $self->{_url} ) {
my $url_param = 'url=' . $self->{_url};
$local_url .= ( $local_url =~ /\?/ ? '&' : '?' ) . $url_param;
}
if ( $self->param( $self->{authChoiceParam} ) ) {
my $url_param = $self->{authChoiceParam}.'=' . $self->param( $self->{authChoiceParam} );
$local_url .= ( $local_url =~ /\?/ ? '&' : '?' ) . $url_param;
}
# Act as a proxy if proxied services configured
my $proxy = ref( $self->{CAS_proxiedServices} ) ? 1 : 0;