From ada1a76b87724533661abd4a52f6660dec52958d Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 31 Jan 2008 05:00:31 +0000
Subject: [PATCH] Make same change as in Workflow::Cron in Workflow::Instance.

---
 lib/WebGUI/Workflow/Instance.pm | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

diff --git a/lib/WebGUI/Workflow/Instance.pm b/lib/WebGUI/Workflow/Instance.pm
index 352ec12cc..f114a6b5d 100644
--- a/lib/WebGUI/Workflow/Instance.pm
+++ b/lib/WebGUI/Workflow/Instance.pm
@@ -144,13 +144,18 @@ Returns the value for a given property. See the set() method for details.
 =cut
 
 sub get {
-	my $self = shift;
-	my $name = shift;
-	if ($name eq "parameters") {
-		my $parameters = JSON::from_json($self->{_data}{$name});
-		return $parameters->{parameters};
-	}
-	return $self->{_data}{$name};
+    my $self = shift;
+    my $name = shift;
+    if ($name eq "parameters") {
+        if (exists $self->{_data}{parameters} and ref($self->{_data}{parameters}) eq 'HASH' ) {
+            my $parameters = JSON::from_json($self->{_data}{$name});
+            return $parameters->{parameters};
+        }
+        else {
+            return undef;
+        }
+    }
+    return $self->{_data}{$name};
 }
 
 #-------------------------------------------------------------------