From 6011f020210e3e5977504dd708904cee3d9f4c9f Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 20 Jun 2007 04:56:08 +0000
Subject: [PATCH] fix for non-existant mode column in 7.4.0 for workflow
 activity upgrade

---
 docs/upgrades/upgrade_7.3.18-7.3.19.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/docs/upgrades/upgrade_7.3.18-7.3.19.pl b/docs/upgrades/upgrade_7.3.18-7.3.19.pl
index 32f1b66e4..71702e703 100644
--- a/docs/upgrades/upgrade_7.3.18-7.3.19.pl
+++ b/docs/upgrades/upgrade_7.3.18-7.3.19.pl
@@ -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;
     }