Changeset 45 for LATMOS-Accounts/lib/LATMOS/Accounts/Synchro.pm

Timestamp:

04/25/09 10:29:23 (15 years ago)

Author:

nanardon

Message:

• fix array ref check

File:

• LATMOS-Accounts/lib/LATMOS/Accounts/Synchro.pm (modified) (3 diffs)

LATMOS-Accounts/lib/LATMOS/Accounts/Synchro.pm

@@ -46 +46 @@
     # allow ref and array ref of, eg
     # to = $foo and $to = [ $foo, $bar ]
-    foreach (ref $to ? @{ $to || []} : ($to)) {
+    foreach (ref($to) eq 'ARRAY' ? @{ $to || []} : ($to)) {
         push(@{$self->{to}}, $_);
     }
@@ -82 +82 @@
     $self->{to} = \@loaded;
     return $unloaded;
-}
-
-# sync obj $from to $to
-# obj must be L::A::Base::Object based
-
-sub _sync_object {
-    my ($self, $from, $to) = @_;
-    my @common_fields = $self->_common_fields($from, $to);
-
 }
 
@@ -129 +120 @@
         foreach my $destbase (@obj_dest_base) {
             warn "objects $otype => " . $destbase->type . "\n";
+            my @common_fields = $self->_common_fields($self->from, $destbase, $otype);
             my %exists = map { $_ => 1 } $destbase->list_objects($otype);
             foreach my $uid (@lobjfrom) {
                 if (!$exists{$uid}) {
-                    # TODO cache this:
-                    my @common_fields = $self->_common_fields($self->from, $destbase, $otype);
-
                     my $sobj = $self->from->get_object($otype, $uid);
                     my %fields = map { $_ => $sobj->get_c_field($_) } @common_fields;
                     $destbase->create_c_object($otype, $uid, %fields);
                     warn "  $otype $uid: created\n";
+                } else {
+                    my $sobj = $self->from->get_object($otype, $uid);
+                    my %fields = map { $_ => $sobj->get_c_field($_) } @common_fields;
+                    my $dobj = $destbase->get_object($otype, $uid);
+                    $dobj->set_c_fields(%fields);
+                       
+                    warn "  $otype $uid: synched\n";
                 }
             }
         }
+    }
+
+    foreach ($self->to) {
+        $_->commit;
     }