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

Timestamp:

05/08/09 17:07:20 (15 years ago)

Author:

nanardon

Message:

• support object deletion
• fix synchro of delayed fields

File:

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

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

@@ -137 +137 @@
                 }
             }
+            my %srcexists = map { $_ => 1 } $self->from->list_objects($otype);
+            foreach (keys %exists) {
+                if (!$srcexists{$_}) {
+                    warn "delete $otype $_\n";
+                    $destbase->delete_object($otype, $_);
+                }
+            }
         }
     }
@@ -178 +185 @@
             my %delayed = map { $_ => 1 } $to->delayed_fields($otype);
             foreach ($from->list_canonicals_fields($otype, 'r')) {
-                $delayed{$_} and next;
+                $delayed{$_} or next;
                 $fields{$_} ||= 0; # avoid 
                 $fields{$_}++;
             }
             foreach ($to->list_canonicals_fields($otype, 'w')) {
-                $delayed{$_} and next;
+                $delayed{$_} or next;
                 $fields{$_} ||= 0; # avoid 
                 $fields{$_}++;