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

Replaced all decode/encode_json method calls with to/from_json method

Browse source 
calls now that we've licked the Survey encoding bug (wrong mysql db
field type)
This commit is contained in:
Patrick Donelan 2009-01-27 05:47:36 +00:00
parent c4eb4e3b57
commit a1033aeaa2
3 changed files with 9 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/Asset/Wobject/Survey/ResponseJSON.pm
View file

@ -61,7 +61,7 @@ sub new {
my $json = shift;
my $log = shift;
my $survey = shift;
my $temp = decode_json($json) if defined $json;
my $temp = from_json($json) if defined $json;
my $self = defined $temp ? $temp : {};
$self->{survey} = $survey;
$self->{log} = $log;
@ -153,7 +153,7 @@ sub freeze {
my %temp = %{$self};
delete $temp{log};
delete $temp{survey};
return encode_json( \%temp );
return to_json( \%temp );
}
#-------------------------------------------------------------------

4
lib/WebGUI/Asset/Wobject/Survey/SurveyJSON.pm
View file

@ -87,7 +87,7 @@ sub new {
# Load json object if given..
if ($json) {
my $decoded_json = decode_json($json);
my $decoded_json = from_json($json);
$self->{sections} = $decoded_json->{sections} if defined $decoded_json->{sections};
$self->{survey} = $decoded_json->{survey} if defined $decoded_json->{survey};
}
@ -110,7 +110,7 @@ components of this object.
sub freeze {
my $self = shift;
return encode_json(
return to_json(
{ sections => $self->{sections},
survey => $self->{survey},
}