X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FStep%2FEnterRecheck.pm;h=3f5c6434e6296610747e469d4ab0e5d2aebb5eba;hb=91543b6231e8bf4af4ce781efa2056b299a843e9;hp=c7dc4472adb4e1e6ef6c70702921dd5a54253c41;hpb=2ccd4b58123288af004358751a047e276f2c6c58;p=scpubgit%2FDX.git diff --git a/lib/DX/Step/EnterRecheck.pm b/lib/DX/Step/EnterRecheck.pm index c7dc447..3f5c643 100644 --- a/lib/DX/Step/EnterRecheck.pm +++ b/lib/DX/Step/EnterRecheck.pm @@ -8,6 +8,8 @@ with 'DX::Role::Step'; has proposition_list => (is => 'ro', required => 1); +has on_completion_step => (is => 'ro', required => 1); + sub apply_to { my ($self, $old_ss) = @_; @@ -52,7 +54,9 @@ sub apply_to { is_solution_state => 0, on_exhaustion_step => undef, on_solution_step => DX::Step::CompleteRecheck->new( - resume_search_state => $old_ss, + resume_search_state => $old_ss->but( + next_step => $self->on_completion_step + ), was_recheck_for => $prop, ), );