maintenance tasks in parallel (#9921)

This commit is contained in:
JT Smith 2009-04-14 18:41:15 +00:00
parent e205496634
commit 6d75e0aa89

View file

@ -33,8 +33,17 @@ my $session = start(); # this line required
# upgrade functions go here
updateSurveyQuestionTypes($session);
extendSchedulerFields($session);
allMaintenanceSingleton($session);
finish($session); # this line required
#----------------------------------------------------------------------------
sub allMaintenanceSingleton {
my $session = shift;
print "\tMaking all maintenance workflows singletons." unless $quiet;
$session->db->write("update Workflow set mode='singleton' where workflowId in ('pbworkflow000000000001','pbworkflow000000000002','pbworkflow000000000004','AuthLDAPworkflow000001')");
print "DONE!\n" unless $quiet;
}
#----------------------------------------------------------------------------
sub extendSchedulerFields {
my $session = shift;