dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correct code of updateSession

Browse Source
This commit is contained in:
Clément Oudot 2010-10-01 09:06:32 +00:00
parent 42e19787f1
commit 52e8221608
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/Simple.pm
View File

@ -781,8 +781,17 @@ sub updateSession {
my ( $self, $infos, $id ) = splice @_;
my %cookies = fetch CGI::Cookie;
# Return if no infos to update
return undef unless ( ref $infos eq 'HASH' and %$infos );
# Update sessionInfo datas
$self->{sessionInfo}->{$_} = $infos->{$_} unless ($id);
if ($id) {
foreach ( keys %$infos ) {
$self->lmLog( "Update sessionInfo $_ with " . $infos->{$_},
'debug' );
$self->{sessionInfo}->{$_} = $infos->{$_};
}
}
# Recover session ID unless given
$id ||= $self->{id};
@ -794,6 +803,7 @@ sub updateSession {
# Store/update session values
foreach ( keys %$infos ) {
$self->lmLog( "Update session $_ with " . $infos->{$_}, 'debug' );
$h->{$_} = $infos->{$_};
}