From c6a0abe8c10258f4128b02705dad5ce55e38bf30 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 21 May 2009 15:13:26 +0000
Subject: [PATCH] Remove a duplicate subroutine and some syntax problems.

---
 lib/WebGUI/Workflow/Instance.pm | 17 +----------------
 1 file changed, 1 insertion(+), 16 deletions(-)

diff --git a/lib/WebGUI/Workflow/Instance.pm b/lib/WebGUI/Workflow/Instance.pm
index 7ea49bf23..4ada0c1be 100644
--- a/lib/WebGUI/Workflow/Instance.pm
+++ b/lib/WebGUI/Workflow/Instance.pm
@@ -357,7 +357,7 @@ sub run {
         return "error";
     }
 
-	$status = eval { $activity->execute($object, $self) };
+	my $status = eval { $activity->execute($object, $self) };
 	if ($@) {
 		$self->session->errorHandler->error("Caught exception executing workflow activity ".$activity->getId." for instance ".$self->getId." which reported ".$@);
 		$self->set({lastStatus=>"error"}, 1);
@@ -374,21 +374,6 @@ sub run {
 
 #-------------------------------------------------------------------
 
-=head2 getNextActivity
-
-Returns the next activity object for this instance.
-
-=cut
-
-sub getNextActivity {
-    my $self = shift;
-    my $workflow = $self->getWorkflow;
-    my $activity = $workflow->getNextActivity($self->get("currentActivityId"));
-    return $activity;
-}
-
-#-------------------------------------------------------------------
-
 =head2 getObject
 
 Returns the object this workflow is being used on, or undef if it does not have a related object.