fix for non-existant mode column in 7.4.0 for workflow activity upgrade

This commit is contained in:
Colin Kuskie 2007-06-20 04:56:08 +00:00
parent 07582c34d6
commit 6011f02021

View file

@ -43,13 +43,13 @@ sub fixAssetSizes {
sub resequenceWorkflowActivities {
my $session = shift;
print "\tFix sequencing problems in Workflow Activities. This will take a while.\n" unless ($quiet);
my $workflows = WebGUI::Workflow->getList($session);
use Data::Dumper;
$session->errorHandler->warn(Dumper $workflows);
my $workflows = WebGUI::Workflow->getList($session, undef, 1); ##Hack to get around non-existant mode column
$session->errorHandler->warn("after getList");
my ($workflowId, $title);
while ( ($workflowId, $title) = each %{ $workflows } ) {
$session->errorHandler->warn($workflowId . ':' . $title);
my $workflow = WebGUI::Workflow->new($session, $workflowId);
$session->errorHandler->warn("after getList");
next unless defined $workflow;
$workflow->reorderActivities;
}