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

replaced return; with return undef;

Browse source
This commit is contained in:
JT Smith 2008-01-24 21:58:15 +00:00
parent ffa90c5fbd
commit fa09c41598
113 changed files with 287 additions and 286 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lib/WebGUI/LDAPLink.pm
View file

@ -219,7 +219,7 @@ sub new {
my $class = shift;
my $session = shift;
$ldapLinkId = shift;
return unless $ldapLinkId;
return undef unless $ldapLinkId;
$ldapLink = $session->db->quickHashRef("select * from ldapLink where ldapLinkId=?",[$ldapLinkId]);
bless {_session=>$session, _ldapLinkId=>$ldapLinkId, _ldapLink=>$ldapLink }, $class;
}
@ -291,7 +291,7 @@ sub recurseProperty {
my $count = $_[4] || 0;
my $recurseFilter = $_[5] || $self->get->{ldapGlobalRecursiveFilter};
my $rfAlreadyTransformed = $_[6];
return unless($ldap && $base && $property);
return undef unless($ldap && $base && $property);
if (length $recurseFilter and not $rfAlreadyTransformed) {
$recurseFilter =~ tr/\r//d;
@ -302,7 +302,7 @@ sub recurseProperty {
#Prevent infinite recursion
$count++;
return if $count == 99;
return undef if $count == 99;
#search the base
my $msg = $ldap->search(
@ -310,8 +310,8 @@ sub recurseProperty {
scope => 'sub',
filter => "&(objectClass=*)"
);
#return if nothing found
return if($msg->code || $msg->count == 0);
#return undef if nothing found
return undef if($msg->code || $msg->count == 0);
#loop through the results
for (my $i = 0; $i < $msg->count; $i++) {
my $entry = $msg->entry($i);