Fixed Survey "copy" button on Edit Survey page

This commit is contained in:
Patrick Donelan 2009-05-11 05:20:27 +00:00
parent 5d6b4093be
commit 5f80ac35f6
2 changed files with 7 additions and 0 deletions

View file

@ -805,6 +805,13 @@ sub copy {
# Update $address with the index of the newly created question
$address->[1] = $self->lastQuestionIndex($address);
}
elsif ( $count == 3 ) {
# Clone the indexed answer onto the end of the list of answers..
push @{ $self->answers($address) }, clone $self->answer($address);
# Update $address with the index of the newly created answer
$address->[2]++;
}
# Return the (modified) $address
return $address;
}