From 0a17df817448e32e602f8e2da549c0e9054785ac Mon Sep 17 00:00:00 2001
From: Doug Bell <doug@plainblack.com>
Date: Fri, 1 Feb 2008 17:48:43 +0000
Subject: [PATCH] fixed problem with JSON sanity checking

---
 lib/WebGUI/Workflow/Instance.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lib/WebGUI/Workflow/Instance.pm b/lib/WebGUI/Workflow/Instance.pm
index 9c5369081..0609e3fbe 100644
--- a/lib/WebGUI/Workflow/Instance.pm
+++ b/lib/WebGUI/Workflow/Instance.pm
@@ -66,8 +66,8 @@ sub create {
 	my ($isSingleton) = $session->db->quickArray("select count(*) from Workflow where workflowId=? and
     mode='singleton'",[$properties->{workflowId}]);
 	my $params = (exists $properties->{parameters}) 
-        ? JSON->new->pretty->encode({parameters => $properties->{parameters}}) 
-        : undef;
+            ? JSON->new->pretty->encode({parameters => $properties->{parameters}}) 
+            : undef;
 	my ($count) = $session->db->quickArray("select count(*) from WorkflowInstance where workflowId=? and parameters=?",[$properties->{workflowId},$params]);
 	return undef if ($isSingleton && $count);
 
@@ -147,7 +147,7 @@ sub get {
     my $self = shift;
     my $name = shift;
     if ($name eq "parameters") {
-        if (exists $self->{_data}{parameters} and ref($self->{_data}{parameters}) eq 'HASH' ) {
+        if (exists $self->{_data}{parameters}) {
             my $parameters = JSON::from_json($self->{_data}{$name});
             return $parameters->{parameters};
         }