Changeset 541

Timestamp:

11/04/09 16:57:00 (15 years ago)

Author:

nanardon

Message:

• don't register object rev if there is an error (get back old behavior lost in previous commit)

File:

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

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

@@ -187 +187 @@
     }
 
+    my %desterror;
     foreach my $pass (1, 0) {
         foreach my $otype ($self->from->list_supported_objects) {
@@ -207 +208 @@
                             $destbase->label,
                         );
+                        $desterror{$destbase->label} = 1;
                     }
 
@@ -216 +218 @@
     $self->leave_synch_mode(%state);
     foreach my $destbase ($self->to) {
-        # TODO: check there were no errors
+        # don't register checkpoint on error
+        if ($desterror{$destbase->label}) { next; }
         $self->newval($self->from->label, $destbase->label, $self->{current_rev});
     }