From 9e38c5ea2a247133c605435038583d3f2c6a7e65 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Cl=C3=A9ment=20Oudot?= <clement@oodo.net>
Date: Fri, 3 Sep 2010 14:24:19 +0000
Subject: [PATCH] Transport authChoice in CAS authentication

---
 .../lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthCAS.pm  | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthCAS.pm b/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthCAS.pm
index 9344bdfd8..632e26caf 100644
--- a/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthCAS.pm
+++ b/modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthCAS.pm
@@ -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;