Changeset 105 for LATMOS-Accounts/lib/LATMOS/Accounts/Bases.pm

Timestamp:

05/14/09 02:09:55 (15 years ago)

Author:

nanardon

Message:

• ensure error are returned

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases.pm (modified) (2 diffs)

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

@@ -284 +284 @@
 sub sync_object {
     my ($self, $srcobj, %options) = @_;
-    $self->is_supported_object($srcobj->type) or return;
+    $self->is_supported_object($srcobj->type) or return '';
     my @fields = $options{attrs}
         ? @{ $options{attrs} }
@@ -294 +294 @@
     }
     if (my $dstobj = $self->get_object($srcobj->type, $srcobj->id)) {
-        return $dstobj->set_c_fields(%data);
+        return 'SYNCHED' if ($dstobj->set_c_fields(%data));
     } elsif(!$options{nocreate}) {
-        return $self->create_c_object($srcobj->type, $srcobj->id, %data);
+        return 'CREATE' if ($self->create_c_object($srcobj->type, $srcobj->id, %data));
     } else {
-        return 0;
+        return '';
     }
+
+    return;
 }