Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Xavier Bachelot
lemonldap-ng
Commits
a9d4ed04
Commit
a9d4ed04
authored
Nov 26, 2009
by
Yadd
Browse files
searchOn was not running
parent
7d4a491a
Changes
1
Hide whitespace changes
Inline
Side-by-side
modules/lemonldap-ng-common/lib/Lemonldap/NG/Common/Apache/Session.pm
View file @
a9d4ed04
...
...
@@ -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
;
}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment