Fix a bug in Fork where it would quit on the first lookup, whether or not the Fork was really done. The variable for completeness is "current" instead of finished.

This commit is contained in:
Colin Kuskie 2011-10-15 13:52:15 -07:00
parent 9da88844e0
commit 22bf6e8451
2 changed files with 5 additions and 5 deletions

View file

@ -153,7 +153,7 @@ sub rollbackInFork {
my $session = $process->session;
my $tag = WebGUI::VersionTag->new( $session, $tagId );
my %status = (
finished => 0,
current => 0,
total => $process->session->db->quickScalar( 'SELECT count(*) FROM assetData WHERE tagId = ?', [$tagId] ),
message => '',
);
@ -167,7 +167,7 @@ sub rollbackInFork {
my $purgeRevision = shift;
my $self = shift;
$self->$purgeRevision(@_);
$status{finished}++;
$status{current}++;
$update->();
}
);