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

Minor fix. JSON no longer assumes proper utf8, but uses whatever off-brand locale a luser wants to use.

Browse source
This commit is contained in:
Kaleb Murphy 2008-12-02 16:03:23 +00:00
parent a4207e7ec5
commit 5127a307b7
3 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -9,7 +9,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;
@ -84,7 +84,7 @@ sub freeze {
my %temp = %{$self};
delete $temp{log};
delete $temp{survey};
return encode_json( \%temp );
return to_json( \%temp );
}
#Hash the survey timed out?

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

@ -53,7 +53,7 @@ sub new {
my $log = shift;
my $self = {};
$self->{log} = $log;
my $temp = decode_json($json) if defined $json;
my $temp = from_json($json) if defined $json;
$self->{sections} = defined $temp->{sections} ? $temp->{sections} : [];
$self->{survey} = defined $temp->{survey} ? $temp->{survey} : {};
bless( $self, $class );
@ -75,7 +75,7 @@ sub freeze {
my %temp;
$temp{sections} = $self->{sections};
$temp{survey} = $self->{survey};
return encode_json( \%temp );
return to_json( \%temp );
}
=head2 newObject ( $address )