use proper JSON encoding/decoding
This commit is contained in:
parent
7023683b48
commit
bf9bd2f0d2
18 changed files with 54 additions and 54 deletions
|
|
@ -117,7 +117,7 @@ sub get {
|
|||
my $name = shift;
|
||||
if ($name eq "parameters") {
|
||||
if (exists $self->{_data}{parameters} && $self->{_data}{parameters} ne "") {
|
||||
my $parameters = JSON::decode_json($self->{_data}{$name});
|
||||
my $parameters = JSON::from_json($self->{_data}{$name});
|
||||
return $parameters->{parameters};
|
||||
}
|
||||
else {
|
||||
|
|
@ -303,7 +303,7 @@ sub set {
|
|||
$self->{_data}{className} = (exists $properties->{className}) ? $properties->{className} : $self->{_data}{className};
|
||||
$self->{_data}{methodName} = (exists $properties->{methodName}) ? $properties->{methodName} : $self->{_data}{methodName};
|
||||
if (exists $properties->{parameters}) {
|
||||
$self->{_data}{parameters} = JSON->new->utf8->pretty->encode({parameters => $properties->{parameters}});
|
||||
$self->{_data}{parameters} = JSON->new->pretty->encode({parameters => $properties->{parameters}});
|
||||
}
|
||||
$self->{_data}{enabled} = 0 unless ($self->{_data}{workflowId});
|
||||
my $spectre = WebGUI::Workflow::Spectre->new($self->session);
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue