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

searchOn was not running

Browse Source
This commit is contained in:
Xavier Guimard 2009-11-26 16:33:31 +00:00
parent 7d4a491af3
commit a9d4ed04bb
1 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
modules/lemonldap-ng-common/lib/Lemonldap/NG/Common/Apache/Session.pm
View File

@ -17,18 +17,21 @@ BEGIN {
sub Apache::Session::searchOn {
my ( $class, $args, $selectField, $value, @fields ) = @_;
my %res = ();
$class->get_key_from_all_sessions($args,sub{
my $entry = shift;
my $id = shift;
return undef unless($entry->{selectField}eq $value);
if (@fields) {
$res{ $id }->{$_} = $entry->{$_} foreach (@fields);
$class->get_key_from_all_sessions(
$args,
sub {
my $entry = shift;
my $id = shift;
return undef unless ( $entry->{$selectField} eq $value );
if (@fields) {
$res{$id}->{$_} = $entry->{$_} foreach (@fields);
}
else {
$res{$id} = $entry;
}
undef;
}
else {
$res{ $id } = $entry;
}
undef;
});
);
return \%res;
}