Changeset 1910 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Bases

Timestamp:

01/04/17 09:33:04 (8 years ago)

Author:

nanardon

Message:

Add some test, then fix some bugs

Location:

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

Files:

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

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

@@ -449 +449 @@
         );
         $self->log(LA_DEBUG, "Alias $otype $name => $for created");
+        my $oalias = $self->GetAlias($otype, $name);
+        $oalias->_update_aliases_ptr();
         return 1;
     } else {
@@ -490 +492 @@
     ));
 
+    $obj->_update_aliases_ptr;
     my $res = $sth->execute($name);
 

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

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

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

@@ -169 +169 @@
                 my ($oalias) = @_;
                 my $otype = $class->type;
+                $oalias ||= '';
 
                 if (my ($aliasotype, $aliasoname, $aliasattr) = $oalias =~ m/^([^\/]+)\.([^\.]+)\.(.*)$/) {