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

Refactored updateQuestionAnswers and addAnswersToQuestion in SurveyJSON

Browse source
This commit is contained in:
Patrick Donelan 2009-01-26 02:20:28 +00:00
parent a2d01c34da
commit c4eb4e3b57
1 changed files with 65 additions and 49 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -852,7 +852,7 @@ sub newAnswer {
=head2 updateQuestionAnswers ($address, $type); =head2 updateQuestionAnswers ($address, $type);
Add answers to a question, based on the requested type. Remove all existing answers and add a default set of answers to a question, based on question type.
=head3 $address =head3 $address
@ -860,8 +860,7 @@ See L<"Address Parameter">. Determines question to add answers to.
=head3 $type =head3 $type
The question type to use to determine how many and what kind of answers The question type determines how many answers to add and what answer text (if any) to use
to add to the question.
=cut =cut
@ -870,10 +869,21 @@ sub updateQuestionAnswers {
my $address = shift; my $address = shift;
my $type = shift; my $type = shift;
my @addy = @{$address}; # Make a private copy of the $address arrayref that we can use locally
# when updating answer text without causing side-effects for the caller's $address
my @address_copy = @{$address};
# Get the indexed question, and remove all of its existing answers
my $question = $self->question($address); my $question = $self->question($address);
$question->{answers} = []; $question->{answers} = [];
# Add the default set of answers. The question type determines both the number
# of answers added and the answer text to use. When updating answer text
# first update $address_copy to point to the answer
# TODO: Rather than being hard-coded, these question type/answer bundles should
# be loaded dynamically and customizable by the user (see also getValidQuestionTypes)
if ( $type eq 'Date Range' if ( $type eq 'Date Range'
or $type eq 'Multi Slider - Allocate' or $type eq 'Multi Slider - Allocate'
or $type eq 'Dual Slider - Range' ) or $type eq 'Dual Slider - Range' )
@ -883,23 +893,23 @@ sub updateQuestionAnswers {
} }
elsif ( $type eq 'Currency' ) { elsif ( $type eq 'Currency' ) {
push( @{ $question->{answers} }, $self->newAnswer() ); push( @{ $question->{answers} }, $self->newAnswer() );
$addy[2] = 0; $address_copy[2] = 0;
$self->update( \@addy, { 'text', 'Currency Amount:' } ); $self->update( \@address_copy, { 'text', 'Currency Amount:' } );
} }
elsif ( $type eq 'Text Date' ) { elsif ( $type eq 'Text Date' ) {
push( @{ $question->{answers} }, $self->newAnswer() ); push( @{ $question->{answers} }, $self->newAnswer() );
$addy[2] = 0; $address_copy[2] = 0;
$self->update( \@addy, { 'text', 'Date:' } ); $self->update( \@address_copy, { 'text', 'Date:' } );
} }
elsif ( $type eq 'Phone Number' ) { elsif ( $type eq 'Phone Number' ) {
push( @{ $question->{answers} }, $self->newAnswer() ); push( @{ $question->{answers} }, $self->newAnswer() );
$addy[2] = 0; $address_copy[2] = 0;
$self->update( \@addy, { 'text', 'Phone Number:' } ); $self->update( \@address_copy, { 'text', 'Phone Number:' } );
} }
elsif ( $type eq 'Email' ) { elsif ( $type eq 'Email' ) {
push( @{ $question->{answers} }, $self->newAnswer() ); push( @{ $question->{answers} }, $self->newAnswer() );
$addy[2] = 0; $address_copy[2] = 0;
$self->update( \@addy, { 'text', 'Email:' } ); $self->update( \@address_copy, { 'text', 'Email:' } );
} }
elsif ( $type eq 'Education' ) { elsif ( $type eq 'Education' ) {
my @ans = ( my @ans = (
@ -912,17 +922,17 @@ sub updateQuestionAnswers {
'Doctorate (of any type)', 'Doctorate (of any type)',
'Other degree (verbatim)' 'Other degree (verbatim)'
); );
$self->addAnswersToQuestion( \@addy, \@ans, { 7, 1 } ); $self->addAnswersToQuestion( \@address_copy, \@ans, { 7, 1 } );
} }
elsif ( $type eq 'Party' ) { elsif ( $type eq 'Party' ) {
my @ans my @ans
= ( 'Democratic party', 'Republican party (or GOP)', 'Independant party', 'Other party (verbatim)' ); = ( 'Democratic party', 'Republican party (or GOP)', 'Independant party', 'Other party (verbatim)' );
$self->addAnswersToQuestion( \@addy, \@ans, { 3, 1 } ); $self->addAnswersToQuestion( \@address_copy, \@ans, { 3, 1 } );
} }
elsif ( $type eq 'Race' ) { elsif ( $type eq 'Race' ) {
my @ans = ( 'American Indian', 'Asian', 'Black', 'Hispanic', 'White non-Hispanic', my @ans = ( 'American Indian', 'Asian', 'Black', 'Hispanic', 'White non-Hispanic',
'Something else (verbatim)' ); 'Something else (verbatim)' );
$self->addAnswersToQuestion( \@addy, \@ans, { 5, 1 } ); $self->addAnswersToQuestion( \@address_copy, \@ans, { 5, 1 } );
} }
elsif ( $type eq 'Ideology' ) { elsif ( $type eq 'Ideology' ) {
my @ans = ( my @ans = (
@ -934,67 +944,67 @@ sub updateQuestionAnswers {
'Conservative', 'Conservative',
'Strongly conservative' 'Strongly conservative'
); );
$self->addAnswersToQuestion( \@addy, \@ans, {} ); $self->addAnswersToQuestion( \@address_copy, \@ans, {} );
} }
elsif ( $type eq 'Security' ) { elsif ( $type eq 'Security' ) {
my @ans = ( 'Not at all secure', '', '', '', '', '', '', '', '', '', 'Extremely secure' ); my @ans = ( 'Not at all secure', '', '', '', '', '', '', '', '', '', 'Extremely secure' );
$self->addAnswersToQuestion( \@addy, \@ans, {} ); $self->addAnswersToQuestion( \@address_copy, \@ans, {} );
} }
elsif ( $type eq 'Threat' ) { elsif ( $type eq 'Threat' ) {
my @ans = ( 'No threat', '', '', '', '', '', '', '', '', '', 'Extreme threat' ); my @ans = ( 'No threat', '', '', '', '', '', '', '', '', '', 'Extreme threat' );
$self->addAnswersToQuestion( \@addy, \@ans, {} ); $self->addAnswersToQuestion( \@address_copy, \@ans, {} );
} }
elsif ( $type eq 'Risk' ) { elsif ( $type eq 'Risk' ) {
my @ans = ( 'No risk', '', '', '', '', '', '', '', '', '', 'Extreme risk' ); my @ans = ( 'No risk', '', '', '', '', '', '', '', '', '', 'Extreme risk' );
$self->addAnswersToQuestion( \@addy, \@ans, {} ); $self->addAnswersToQuestion( \@address_copy, \@ans, {} );
} }
elsif ( $type eq 'Concern' ) { elsif ( $type eq 'Concern' ) {
my @ans = ( 'Not at all concerned', '', '', '', '', '', '', '', '', '', 'Extremely concerned' ); my @ans = ( 'Not at all concerned', '', '', '', '', '', '', '', '', '', 'Extremely concerned' );
$self->addAnswersToQuestion( \@addy, \@ans, {} ); $self->addAnswersToQuestion( \@address_copy, \@ans, {} );
} }
elsif ( $type eq 'Effectiveness' ) { elsif ( $type eq 'Effectiveness' ) {
my @ans = ( 'Not at all effective', '', '', '', '', '', '', '', '', '', 'Extremely effective' ); my @ans = ( 'Not at all effective', '', '', '', '', '', '', '', '', '', 'Extremely effective' );
$self->addAnswersToQuestion( \@addy, \@ans, {} ); $self->addAnswersToQuestion( \@address_copy, \@ans, {} );
} }
elsif ( $type eq 'Confidence' ) { elsif ( $type eq 'Confidence' ) {
my @ans = ( 'Not at all confident', '', '', '', '', '', '', '', '', '', 'Extremely confident' ); my @ans = ( 'Not at all confident', '', '', '', '', '', '', '', '', '', 'Extremely confident' );
$self->addAnswersToQuestion( \@addy, \@ans, {} ); $self->addAnswersToQuestion( \@address_copy, \@ans, {} );
} }
elsif ( $type eq 'Satisfaction' ) { elsif ( $type eq 'Satisfaction' ) {
my @ans = ( 'Not at all satisfied', '', '', '', '', '', '', '', '', '', 'Extremely satisfied' ); my @ans = ( 'Not at all satisfied', '', '', '', '', '', '', '', '', '', 'Extremely satisfied' );
$self->addAnswersToQuestion( \@addy, \@ans, {} ); $self->addAnswersToQuestion( \@address_copy, \@ans, {} );
} }
elsif ( $type eq 'Certainty' ) { elsif ( $type eq 'Certainty' ) {
my @ans = ( 'Not at all certain', '', '', '', '', '', '', '', '', '', 'Extremely certain' ); my @ans = ( 'Not at all certain', '', '', '', '', '', '', '', '', '', 'Extremely certain' );
$self->addAnswersToQuestion( \@addy, \@ans, {} ); $self->addAnswersToQuestion( \@address_copy, \@ans, {} );
} }
elsif ( $type eq 'Likelihood' ) { elsif ( $type eq 'Likelihood' ) {
my @ans = ( 'Not at all likely', '', '', '', '', '', '', '', '', '', 'Extremely likely' ); my @ans = ( 'Not at all likely', '', '', '', '', '', '', '', '', '', 'Extremely likely' );
$self->addAnswersToQuestion( \@addy, \@ans, {} ); $self->addAnswersToQuestion( \@address_copy, \@ans, {} );
} }
elsif ( $type eq 'Importance' ) { elsif ( $type eq 'Importance' ) {
my @ans = ( 'Not at all important', '', '', '', '', '', '', '', '', '', 'Extremely important' ); my @ans = ( 'Not at all important', '', '', '', '', '', '', '', '', '', 'Extremely important' );
$self->addAnswersToQuestion( \@addy, \@ans, {} ); $self->addAnswersToQuestion( \@address_copy, \@ans, {} );
} }
elsif ( $type eq 'Oppose/Support' ) { elsif ( $type eq 'Oppose/Support' ) {
my @ans = ( 'Strongly oppose', '', '', '', '', '', 'Strongly support' ); my @ans = ( 'Strongly oppose', '', '', '', '', '', 'Strongly support' );
$self->addAnswersToQuestion( \@addy, \@ans, {} ); $self->addAnswersToQuestion( \@address_copy, \@ans, {} );
} }
elsif ( $type eq 'Agree/Disagree' ) { elsif ( $type eq 'Agree/Disagree' ) {
my @ans = ( 'Strongly disagree', '', '', '', '', '', 'Strongly agree' ); my @ans = ( 'Strongly disagree', '', '', '', '', '', 'Strongly agree' );
$self->addAnswersToQuestion( \@addy, \@ans, {} ); $self->addAnswersToQuestion( \@address_copy, \@ans, {} );
} }
elsif ( $type eq 'True/False' ) { elsif ( $type eq 'True/False' ) {
my @ans = ( 'True', 'False' ); my @ans = ( 'True', 'False' );
$self->addAnswersToQuestion( \@addy, \@ans, {} ); $self->addAnswersToQuestion( \@address_copy, \@ans, {} );
} }
elsif ( $type eq 'Yes/No' ) { elsif ( $type eq 'Yes/No' ) {
my @ans = ( 'Yes', 'No' ); my @ans = ( 'Yes', 'No' );
$self->addAnswersToQuestion( \@addy, \@ans, {} ); $self->addAnswersToQuestion( \@address_copy, \@ans, {} );
} }
elsif ( $type eq 'Gender' ) { elsif ( $type eq 'Gender' ) {
my @ans = ( 'Male', 'Female' ); my @ans = ( 'Male', 'Female' );
$self->addAnswersToQuestion( \@addy, \@ans, {} ); $self->addAnswersToQuestion( \@address_copy, \@ans, {} );
} }
else { else {
push( @{ $question->{answers} }, $self->newAnswer() ); push( @{ $question->{answers} }, $self->newAnswer() );
@ -1023,25 +1033,30 @@ set to true.
=cut =cut
sub addAnswersToQuestion { sub addAnswersToQuestion {
my $self = shift; my ( $self, $address, $answers, $verbatims ) = @_;
my $addy = shift;
my $ans = shift;
my $verbs = shift;
for ( 0 .. $#$ans ) {
push( @{ $self->question($addy)->{answers} }, $self->newAnswer() );
$$addy[2] = $_;
if ( exists $$verbs{$_} and $verbs->{$_} ) {
$self->update( $addy, { 'text', $$ans[$_], 'recordedAnswer', $_ + 1, 'verbatim', 1 } );
}
else {
$self->update( $addy, { 'text', $$ans[$_], 'recordedAnswer', $_ + 1 } );
}
}
} ## end sub addAnswersToQuestion
#------------------------------ # Make a private copy of the $address arrayref that we can use locally
#accessors and helpers # when updating answer text without causing side-effects for the caller's $address
#------------------------------ my @address_copy = @{$address};
for my $answer_index ( 0 .. $#$answers ) {
# Add a new answer to question
push( @{ $self->question( \@address_copy )->{answers} }, $self->newAnswer() );
# Update address to point at newly created answer (so that we can update it)
$address_copy[2] = $answer_index;
# Update the answer appropriately
$self->update(
\@address_copy,
{ text => $answers->[$answer_index],
recordedAnswer => $answer_index + 1,
verbatim => $verbatims->{$answer_index},
}
);
}
}
=head2 sections =head2 sections
@ -1244,4 +1259,5 @@ sub log {
$self->{log}->error($message); $self->{log}->error($message);
} }
} }
1; 1;