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

Remove bloat from Survey response record to reduce json serialisation time

Browse source
This commit is contained in:
Patrick Donelan 2009-06-03 02:11:31 +00:00
parent f49d96152e
commit da595da89e
2 changed files with 22 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -217,11 +217,18 @@ sub session {
Serializes the internal perl hash representing the Response to a JSON string
To reduce json serialization time and db bloat, we only serialize the bare essentials
=cut
sub freeze {
my $self = shift;
return to_json($self->response);
# These are the only properties of the response hash that we serialize:
my @props = qw(responses lastResponse questionsAnswered startTime tags);
my %serialize;
@serialize{@props} = @{$self->response}{@props};
return to_json(\%serialize);
}
#-------------------------------------------------------------------
@ -560,7 +567,10 @@ sub recordResponses {
my $aValid = 0;
my $qId = $question->{id};
$newResponse{ $qId }->{comment} = $responses->{ "${qId}comment" };
my $comment = $responses->{ "${qId}comment" };
if (defined $comment && length $comment) {
$newResponse{ $qId }->{comment} = $comment;
}
for my $answer ( @{ $question->{answers} } ) {
my $aId = $answer->{id};
@ -577,13 +587,13 @@ sub recordResponses {
next;
}
}
elsif ( $questionType eq 'Date' ) {
# Must be a valid date (until we get date i18n this is limited to YYYY/MM/DD)
if ($recordedAnswer !~ m|^\d{4}/\d{1,2}/\d{1,2}$|) {
$self->session->log->debug("Invalid $questionType: $recordedAnswer");
next;
}
}
# elsif ( $questionType eq 'Date' ) {
# # Accept any date input until we get per-question validation options
# if ($recordedAnswer !~ m|^\d{4}/\d{1,2}/\d{1,2}$|) {
# $self->session->log->debug("Invalid $questionType: $recordedAnswer");
# next;
# }
# }
elsif ( $questionType eq 'Number' || $questionType eq 'Slider' ) {
if ( $answer->{max} =~ /\d/ and $recordedAnswer > $answer->{max} ) {
$self->session->log->debug("Invalid $questionType: $recordedAnswer");