Changeset 1205 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Synchro.pm

Timestamp:

12/28/12 15:05:22 (12 years ago)

Author:

nanardon

Message:

add reset checkpoint to Basessynchro, fixing #3

File:

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

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

@@ -399 +399 @@
 }
 
+=head2 reset_checkpoint
+
+Reset checkpoint in status file to force full synchronisation
+
+=cut
+
+sub reset_checkpoint {
+    my ($self) = @_;
+    foreach my $destbase ($self->to) {
+            # don't register checkpoint on error
+        $self->newval($self->from->label, $destbase->label, 0);
+    }
+    $self->write_status;
+}
+
 =head2 run_pre_synchro