Changeset 1908

Timestamp:

01/04/17 02:32:21 (7 years ago)

Author:

nanardon

Message:

Avoid deep recursion in search

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql

Files:

• User.pm (modified) (1 diff)
• objects.pm (modified) (2 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/User.pm

@@ -1429 +1429 @@
     );
 
-    my $res = $stAddAlias->execute($name, -1, $for, $base->_derefObject($for));
+    my $res = $stAddAlias->execute($name, -1, $for, $base->_derefObject($for) || undef);
     return $res ? 1 : 0;
 }

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases/Sql/objects.pm

@@ -1042 +1042 @@
 
         my @oaliases = ();
-        if ($attr ne 'oalias' && $attribute->reference) {
+        if ($attr ne 'oaliascache' && $attribute->reference) {
             @oaliases = $base->search_objects($attribute->reference, "oaliascache=$value");
             $base->log(LA_DEBUG, "Uniq search will match oaliases: %s", join(' ', @oaliases) || '(none)');
@@ -1121 +1121 @@
             } else {
                 my @oaliases = ();
-                if ($attr ne 'oalias' && $attribute->reference) {
+                if ($attr ne 'oaliascache' && $attribute->reference) {
                     @oaliases = $base->search_objects($attribute->reference, "oaliascache=$val");
                     $base->log(LA_DEBUG, "Uniq search will match oaliases for %s: %s", $val, join(' ', @oaliases) || '(none)');