oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

forward port of Franks recursive LDAP fix

Browse source
This commit is contained in:
Colin Kuskie 2006-02-05 03:39:30 +00:00
parent 67511cd89f
commit eb13ca2df3
2 changed files with 13 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

1
docs/changelog/6.x.x.txt
View file

@ -25,6 +25,7 @@
- fix [ 1397890 ] Can't click directly to page 2+ of a thread
- fix [ 1328895 ] Page Redirect Asset Help File needs to be changed
- fix [ 1423815 ] snippet v6.8.5
- fix [ 1421056 ] LDAP Recursive Property Bug
6.8.5
- fix [ 1396957 ] Insufficient privileges check on the DataForm

23
lib/WebGUI/LDAPLink.pm
View file

@ -269,17 +269,18 @@ sub recurseProperty {
return if($msg->code || $msg->count == 0);
#loop through the results
for (my $i = 0; $i < $msg->count; $i++) {
my $entry = $msg->entry($i);
#push all the values stored in the property on to the array stack
my $properties = $entry->get_value($property,asref => 1);
push(@{$array},@{$properties});
#Loop through the recursive keys
if($property ne $recProperty) {
$properties = $entry->get_value($recProperty,asref => 1);
}
foreach my $prop (@{$properties}) {
$self->recurseProperty($prop,$array,$property,$recProperty,$count);
}
my $entry = $msg->entry($i);
#push all the values stored in the property on to the array stack
my $properties = $entry->get_value($property,asref => 1);
$properties = [] unless ref $properties eq "ARRAY";
push(@{$array},@{$properties});
#Loop through the recursive keys
if($property ne $recProperty) {
$properties = $entry->get_value($recProperty,asref => 1);
}
foreach my $prop (@{$properties}) {
$self->recurseProperty($prop,$array,$property,$recProperty,$count);
}
}
}