Changeset 1298 for trunk

Timestamp:

03/23/15 14:30:10 (9 years ago)

Author:

nanardon

Message:

Fix object creation when underlying code do not return an object

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts

Files:

• Bases.pm (modified) (1 diff)
• Bases/Unix.pm (modified) (1 diff)

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

@@ -447 +447 @@
         $data{$attribute->iname} = $cdata{$cfield};
     }
-    #keys %data or return 0; # TODO: return an error ?
-    my $obj = $self->create_object($otype, $id, %data) or return;
+    $self->create_object($otype, $id, %data) or return;
+    my $obj = $self->get_object($otype, $id) or return;
     $obj->ReportChange('Create', 'Object created with %s', join(', ', sort keys %cdata));
 

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

@@ -366 +366 @@
     };
     my $obj = $self->get_object($otype, $id) or return;
-    $obj->set_fields(%data);
+    $obj->set_fields(%data) or return;
     $obj
 }