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

Timestamp:

05/10/09 19:03:39 (15 years ago)

Author:

nanardon

Message:

• allow to sync specific object

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Bases.pm (modified) (1 diff)

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

@@ -276 +276 @@
 }
 
+=head2 sync_object
+
+Synchronise an object into this base
+
+=cut
+
+sub sync_object {
+    my ($self, $srcobj, %options) = @_;
+    $self->is_supported_object($srcobj->type) or return;
+    my @fields = $options{attrs}
+        ? @{ $options{attrs} }
+        : $self->list_canonicals_fields($srcobj->type, 'w');
+    my %data;
+    foreach (@fields) {
+        $srcobj->get_field_name($_) or next;
+        $data{$_} = $srcobj->get_c_field($_);
+    }
+    if (my $dstobj = $self->get_object($srcobj->type, $srcobj->id)) {
+        return $dstobj->set_c_fields(%data);
+    } elsif(!$options{nocreate}) {
+        return $self->create_c_object($srcobj->type, $srcobj->id, %data);
+    } else {
+        return 0;
+    }
+}
+
 1;