Commit 0206c14e authored by Clément OUDOT's avatar Clément OUDOT

Fix DBI authentication level problem, and clean LDAP authentication level code (#LEMONLDAP-272)

git-svn-id: svn://svn.forge.objectweb.org/svnroot/lemonldap/branches/lemonldap-ng_version_1_0-bugfixes@1946 1dbb9719-a921-0410-b57f-c3a383c2c641
parent 6bf24562
......@@ -9,7 +9,7 @@ use Lemonldap::NG::Portal::Simple;
use base qw(Lemonldap::NG::Portal::_WebForm Lemonldap::NG::Portal::_DBI);
use strict;
our $VERSION = '1.0.0';
our $VERSION = '1.0.2';
our $initDone;
BEGIN {
......@@ -38,6 +38,8 @@ sub authInit {
return PE_ERROR;
}
$self->{_authnLevel} = $self->{dbiAuthnLevel};
$initDone = 1;
PE_OK;
}
......@@ -47,7 +49,6 @@ sub authInit {
#@return Lemonldap::NG::Portal constant
sub authenticate {
my $self = shift;
$self->{_authnLevel} = $self->{dbiAuthnLevel};
# Connect
my $dbh =
......
......@@ -10,7 +10,7 @@ use Lemonldap::NG::Portal::_LDAP 'ldap'; #link protected ldap
use Lemonldap::NG::Portal::_WebForm;
use Lemonldap::NG::Portal::UserDBLDAP; #inherits
our $VERSION = '1.0.0';
our $VERSION = '1.0.2';
use base qw(Lemonldap::NG::Portal::_WebForm);
*_formateFilter = *Lemonldap::NG::Portal::UserDBLDAP::formateFilter;
......@@ -32,7 +32,6 @@ sub authInit {
# @return Lemonldap::NG::Portal constant
sub authenticate {
my $self = shift;
$self->{_authnLevel} = $self->{ldapAuthnLevel};
unless ( $self->ldap ) {
return PE_LDAPCONNECTFAILED;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment