Fix getDisplayType call in Multi backend (#593)

This commit is contained in:
Clément Oudot 2013-04-19 08:27:29 +00:00
parent 0ec77fde48
commit ca1b0db0d2
2 changed files with 4 additions and 7 deletions

View File

@ -7,7 +7,7 @@ package Lemonldap::NG::Portal::AuthMulti;
use Lemonldap::NG::Portal::_Multi; #inherits use Lemonldap::NG::Portal::_Multi; #inherits
our $VERSION = '1.2.2'; our $VERSION = '1.2.4';
sub authInit { sub authInit {
my $self = shift; my $self = shift;
@ -46,10 +46,7 @@ sub authForce {
sub getDisplayType { sub getDisplayType {
my $self = shift; my $self = shift;
my $s = my $s = $self->{_multi}->{last}->[0] . "::getDisplayType";
"Lemonldap::NG::Portal::Auth"
. $self->{_multi}->{last}->[0]
. "::getDisplayType";
return &{$s}; return &{$s};
} }

View File

@ -12,7 +12,7 @@ package Lemonldap::NG::Portal::_Multi;
use Lemonldap::NG::Portal::Simple; use Lemonldap::NG::Portal::Simple;
our $VERSION = '1.2.2'; our $VERSION = '1.2.4';
## @cmethod Lemonldap::NG::Portal::_Multi new(Lemonldap::NG::Portal::Simple portal) ## @cmethod Lemonldap::NG::Portal::_Multi new(Lemonldap::NG::Portal::Simple portal)
# Constructor # Constructor
@ -69,7 +69,7 @@ sub try {
my $ci; my $ci;
# Store last module used # Store last module used
$self->{last}->[$type] = $old; $self->{last}->[$type] = $self->{stack}->[$type]->[0]->{m};
if ( $ci = $self->{p}->safe->reval( $self->{stack}->[$type]->[0]->{c} ) ) { if ( $ci = $self->{p}->safe->reval( $self->{stack}->[$type]->[0]->{c} ) ) {