Dont let stupid monkies play with object members
This commit is contained in:
parent
8a8f6aea1d
commit
774ef99cb6
1 changed files with 2 additions and 2 deletions
|
|
@ -462,8 +462,8 @@ sub recordResponses {
|
||||||
my ($responses) = validate_pos( @_, { type => HASHREF } );
|
my ($responses) = validate_pos( @_, { type => HASHREF } );
|
||||||
|
|
||||||
# Build a lookup table of non-multiple choice question types
|
# Build a lookup table of non-multiple choice question types
|
||||||
my %knownTypes = map {$_ => 1} $self->survey->specialQuestionTypes;
|
my %knownTypes = map {$_ => 1} @{$self->survey->specialQuestionTypes};
|
||||||
|
|
||||||
# We want to record responses against the "next" response section and questions, since these are
|
# We want to record responses against the "next" response section and questions, since these are
|
||||||
# the items that have just been displayed to the user.
|
# the items that have just been displayed to the user.
|
||||||
my $section = $self->nextResponseSection();
|
my $section = $self->nextResponseSection();
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue