diff --git a/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDBDBI.pm b/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDBDBI.pm index 3f5abdacd..0011eec15 100644 --- a/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDBDBI.pm +++ b/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDBDBI.pm @@ -118,47 +118,5 @@ sub setGroups { PE_OK; } -## @method boolean setUserDBValue(string key, string value) -# Store a value in UserDB -# @param key Key in user information -# @param value Value to store -# @return result -sub setUserDBValue { - my ( $self, $key, $value ) = @_; - - # Mandatory attributes - return 0 unless defined $key; - - # Write in database - $self->lmLog( "Replace $key attribute in database with value $value", - 'debug' ); - - # Connect - my $dbh = - $self->dbh( $self->{dbiUserChain}, $self->{dbiUserUser}, - $self->{dbiUserPassword} ); - return 0 unless $dbh; - - my $table = $self->{dbiUserTable}; - my $pivot = $self->{userPivot}; - my $user = $self->{user}; - - $user =~ s/'/''/g; - my $sth; - - eval { - $sth = $dbh->prepare("UPDATE $table SET $key = $value WHERE $pivot=?"); - $sth->execute($user); - }; - - # Check result - if ($@) { - $self->lmLog( "DBI error: $@", 'error' ); - return 0; - } - - return 1; -} - 1; diff --git a/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDBLDAP.pm b/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDBLDAP.pm index 8ba94251b..c78b55a2d 100644 --- a/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDBLDAP.pm +++ b/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDBLDAP.pm @@ -185,33 +185,6 @@ sub setGroups { PE_OK; } -## @method boolean setUserDBValue(string key, string value) -# Store a value in UserDB -# @param key Key in user information -# @param value Value to store -# @return result -sub setUserDBValue { - my ( $self, $key, $value ) = @_; - - # Mandatory attributes - return 0 unless defined $key; - - # Write in LDAP - $self->lmLog( "Replace $key attribute in LDAP with value $value", 'debug' ); - my $modification = - $self->{ldap}->modify( $self->{dn}, replace => { $key => $value } ); - - # Check result - if ( $modification->code ) { - $self->lmLog( - "LDAP error " . $modification->code . ": " . $modification->error, - 'error' ); - return 0; - } - - return 1; -} - ## @apmethod int userDBFinish() # Unbind. # @return Lemonldap::NG::Portal constant