Always clear previous hidden form value when PE_INFO is returned by autoRedirect and autoPost (#125)
This commit is contained in:
parent
5e6efebab1
commit
a85958f90f
@ -1443,9 +1443,6 @@ sub authFinish {
|
||||
my $self = shift;
|
||||
my %h;
|
||||
|
||||
# Clear SAML hidden fields (not used anymore)
|
||||
$self->clearHiddenFormValue( ['SAMLRequest', 'SAMLResponse', 'Method', 'RelayState', 'SAMLart' ] );
|
||||
|
||||
# Real session was stored, get id and utime
|
||||
my $id = $self->{id};
|
||||
my $utime = $self->{sessionInfo}->{_utime};
|
||||
|
@ -457,7 +457,7 @@ sub getHiddenFormValue {
|
||||
# Delete all keys if no keys provided
|
||||
# @param keys Array reference of keys
|
||||
# @return nothing
|
||||
sub clearHiddenFormValues {
|
||||
sub clearHiddenFormValue {
|
||||
my ( $self, $keys ) = splice @_;
|
||||
|
||||
unless ( defined $keys ) {
|
||||
@ -1616,6 +1616,7 @@ sub autoRedirect {
|
||||
# Display info before redirecting
|
||||
if ( $self->info() ) {
|
||||
$self->{infoFormMethod} = "get";
|
||||
$self->clearHiddenFormValue();
|
||||
my ($query_string) = ( $self->{urldc} =~ /.+?\?(.+)/ );
|
||||
if ($query_string) {
|
||||
$self->lmLog(
|
||||
@ -1708,6 +1709,7 @@ sub autoPost {
|
||||
# Display info before redirecting
|
||||
if ( $self->info() ) {
|
||||
$self->{infoFormMethod} = "post";
|
||||
$self->clearHiddenFormValue();
|
||||
$self->{urldc} = $url;
|
||||
foreach ( keys %$formFields ) {
|
||||
$self->setHiddenFormValue( $_, $formFields->{$_}, "", 0 );
|
||||
|
Loading…
Reference in New Issue
Block a user