oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix bad EMS Submissions merging.

Browse source
This commit is contained in:
Colin Kuskie 2009-11-04 21:49:30 -08:00
parent 4d0fa5370f
commit 40cec4b855
3 changed files with 2 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lib/WebGUI/Workflow/Activity/CleanupEMSSubmissions.pm
View file

@ -68,13 +68,10 @@ See WebGUI::Workflow::Activity::execute() for details.
=cut
use lib '/root/pb/lib'; use dav;
sub execute {
my $self = shift;
my $session = $self->session;
my $root = WebGUI::Asset->getRoot($session);
dav::log __PACKAGE__ . " executing\n";
# keep track of how much time it's taking
my $start = time;
@ -86,7 +83,6 @@ dav::log __PACKAGE__ . " executing\n";
} );
for my $emsForm ( @$list ) {
dav::log __PACKAGE__ . "::executing::emsForm loop\n";
my $daysBeforeCleanup = $emsForm->get('daysBeforeCleanup') ;
next if ! $daysBeforeCleanup;
my $whereClause = q{ submissionStatus='denied' };
@ -101,7 +97,6 @@ dav::log __PACKAGE__ . "::executing::emsForm loop\n";
whereClause => $whereClause,
} );
for my $submission ( @$res ) {
dav::log __PACKAGE__ . "::executing::submission loop\n";
$submission->purge;
$limit--;
return $self->WAITING(1) if ! $limit or time > $start + $timeLimit;