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 [ 1397890 ] Can't click directly to page 2+ of a thread
- fix [ 1328895 ] Page Redirect Asset Help File needs to be changed - fix [ 1328895 ] Page Redirect Asset Help File needs to be changed
- fix [ 1423815 ] snippet v6.8.5 - fix [ 1423815 ] snippet v6.8.5
- fix [ 1421056 ] LDAP Recursive Property Bug
6.8.5 6.8.5
- fix [ 1396957 ] Insufficient privileges check on the DataForm - 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); return if($msg->code || $msg->count == 0);
#loop through the results #loop through the results
for (my $i = 0; $i < $msg->count; $i++) { for (my $i = 0; $i < $msg->count; $i++) {
my $entry = $msg->entry($i); my $entry = $msg->entry($i);
#push all the values stored in the property on to the array stack #push all the values stored in the property on to the array stack
my $properties = $entry->get_value($property,asref => 1); my $properties = $entry->get_value($property,asref => 1);
push(@{$array},@{$properties}); $properties = [] unless ref $properties eq "ARRAY";
#Loop through the recursive keys push(@{$array},@{$properties});
if($property ne $recProperty) { #Loop through the recursive keys
$properties = $entry->get_value($recProperty,asref => 1); if($property ne $recProperty) {
} $properties = $entry->get_value($recProperty,asref => 1);
foreach my $prop (@{$properties}) { }
$self->recurseProperty($prop,$array,$property,$recProperty,$count); foreach my $prop (@{$properties}) {
} $self->recurseProperty($prop,$array,$property,$recProperty,$count);
}
} }
} }