Use correct values to display SREG confirmation

This commit is contained in:
Clément Oudot 2010-10-04 13:53:44 +00:00
parent 0bfe3b95df
commit 24df2548ac

View File

@ -84,12 +84,12 @@ sub sregHook {
); );
$self->info( $self->info(
'<h2>' '<h3>'
. sprintf( . sprintf(
&Lemonldap::NG::Portal::_i18n::msg(PM_OPENID_RPNS), &Lemonldap::NG::Portal::_i18n::msg(PM_OPENID_RPNS),
$k $k
) )
. '</h2>' . '</h3>'
); );
return ( 0, {} ); return ( 0, {} );
} }
@ -178,18 +178,20 @@ sub sregHook {
# No choice for requested parameters: just an information # No choice for requested parameters: just an information
foreach my $k (@req) { foreach my $k (@req) {
utf8::decode( $msg{req}->{$k} );
$self->{_openIdTrustExtMsg} .= $self->{_openIdTrustExtMsg} .=
"<tr class=\"required\">\n" . "<td>" "<tr class=\"required\">\n" . "<td>"
. "<input type=\"checkbox\" disabled=\"disabled\" checked=\"checked\"/>" . "<input type=\"checkbox\" disabled=\"disabled\" checked=\"checked\"/>"
. "</td>\n" . "</td>\n"
. "<td>$k</td>\n" . "<td>" . "<td>$k</td>\n" . "<td>"
. utf8::decode( $r{$k} ) . $msg{req}->{$k}
. "</td>\n" . "</td>\n"
. "</tr>\n"; . "</tr>\n";
} }
# For optional parameters: checkboxes are displayed # For optional parameters: checkboxes are displayed
foreach my $k (@opt) { foreach my $k (@opt) {
utf8::decode( $msg{opt}->{$k} );
$self->{_openIdTrustExtMsg} .= $self->{_openIdTrustExtMsg} .=
"<tr class=\"optional\">\n" "<tr class=\"optional\">\n"
. "<td>\n" . "<td>\n"
@ -198,7 +200,7 @@ sub sregHook {
. " name=\"sreg_$k\" />" . " name=\"sreg_$k\" />"
. "</td>\n" . "</td>\n"
. "<td>$k</td>\n" . "<td>" . "<td>$k</td>\n" . "<td>"
. utf8::decode( $r{$k} ) . $msg{opt}->{$k}
. "</td>\n" . "</td>\n"
. "</tr>\n"; . "</tr>\n";
} }