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

Forward port removing workflow instances that don't have an underlying workflow anymore.

Browse source
This commit is contained in:
Colin Kuskie 2009-01-29 17:40:43 +00:00
parent fb3c85fdd2
commit 70b0c262f5
2 changed files with 15 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
docs/upgrades/upgrade_7.6.10-7.6.11.pl
View file

@ -31,6 +31,7 @@ my $quiet; # this line required
my $session = start(); # this line required
hideGalleryAlbums($session);
removeBrokenWorkflowInstances($session);
# upgrade functions go here
@ -58,6 +59,19 @@ sub hideGalleryAlbums {
print "DONE!\n" unless $quiet;
}
#----------------------------------------------------------------------------
sub removeBrokenWorkflowInstances {
my $session = shift;
print "\tRemove Workflow Instances whose Workflows have been deleted... " unless $quiet;
# and here's our code
my $instances = WebGUI::Workflow::Instance->getAllInstances($session);
foreach my $instance (@{ $instances }) {
my $workflow = $instance->getWorkflow;
$instance->delete('skipNotify') if !defined $workflow;
}
print "DONE!\n" unless $quiet;
}
# -------------- DO NOT EDIT BELOW THIS LINE --------------------------------
#----------------------------------------------------------------------------