From 6d75e0aa89e9696e08626c3f86cb7adb0c794181 Mon Sep 17 00:00:00 2001 From: JT Smith Date: Tue, 14 Apr 2009 18:41:15 +0000 Subject: [PATCH] maintenance tasks in parallel (#9921) --- docs/upgrades/upgrade_7.7.3-7.7.4.pl | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/docs/upgrades/upgrade_7.7.3-7.7.4.pl b/docs/upgrades/upgrade_7.7.3-7.7.4.pl index f0317b8f5..9d4222d9c 100644 --- a/docs/upgrades/upgrade_7.7.3-7.7.4.pl +++ b/docs/upgrades/upgrade_7.7.3-7.7.4.pl @@ -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;