remove debugging code
This commit is contained in:
parent
6011f02021
commit
777d291206
1 changed files with 0 additions and 3 deletions
|
|
@ -44,12 +44,9 @@ sub resequenceWorkflowActivities {
|
||||||
my $session = shift;
|
my $session = shift;
|
||||||
print "\tFix sequencing problems in Workflow Activities. This will take a while.\n" unless ($quiet);
|
print "\tFix sequencing problems in Workflow Activities. This will take a while.\n" unless ($quiet);
|
||||||
my $workflows = WebGUI::Workflow->getList($session, undef, 1); ##Hack to get around non-existant mode column
|
my $workflows = WebGUI::Workflow->getList($session, undef, 1); ##Hack to get around non-existant mode column
|
||||||
$session->errorHandler->warn("after getList");
|
|
||||||
my ($workflowId, $title);
|
my ($workflowId, $title);
|
||||||
while ( ($workflowId, $title) = each %{ $workflows } ) {
|
while ( ($workflowId, $title) = each %{ $workflows } ) {
|
||||||
$session->errorHandler->warn($workflowId . ':' . $title);
|
|
||||||
my $workflow = WebGUI::Workflow->new($session, $workflowId);
|
my $workflow = WebGUI::Workflow->new($session, $workflowId);
|
||||||
$session->errorHandler->warn("after getList");
|
|
||||||
next unless defined $workflow;
|
next unless defined $workflow;
|
||||||
$workflow->reorderActivities;
|
$workflow->reorderActivities;
|
||||||
}
|
}
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue