oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fixed problem with JSON sanity checking

Browse source
This commit is contained in:
Doug Bell 2008-02-01 17:48:43 +00:00
parent 23f86d775e
commit 0a17df8174
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/WebGUI/Workflow/Instance.pm
View file

@ -66,8 +66,8 @@ sub create {
my ($isSingleton) = $session->db->quickArray("select count(*) from Workflow where workflowId=? and my ($isSingleton) = $session->db->quickArray("select count(*) from Workflow where workflowId=? and
mode='singleton'",[$properties->{workflowId}]); mode='singleton'",[$properties->{workflowId}]);
my $params = (exists $properties->{parameters}) my $params = (exists $properties->{parameters})
? JSON->new->pretty->encode({parameters => $properties->{parameters}}) ? JSON->new->pretty->encode({parameters => $properties->{parameters}})
: undef; : undef;
my ($count) = $session->db->quickArray("select count(*) from WorkflowInstance where workflowId=? and parameters=?",[$properties->{workflowId},$params]); my ($count) = $session->db->quickArray("select count(*) from WorkflowInstance where workflowId=? and parameters=?",[$properties->{workflowId},$params]);
return undef if ($isSingleton && $count); return undef if ($isSingleton && $count);
@ -147,7 +147,7 @@ sub get {
my $self = shift; my $self = shift;
my $name = shift; my $name = shift;
if ($name eq "parameters") { 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}); my $parameters = JSON::from_json($self->{_data}{$name});
return $parameters->{parameters}; return $parameters->{parameters};
} }