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

Minor fixes (typo and unnecessary hash dereference)

Browse source
This commit is contained in:
Patrick Donelan 2008-10-15 01:03:13 +00:00
parent 2a9bbc7490
commit afde10109f
2 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -240,7 +240,7 @@ $self->log("qAddy was $$qAddy[0]-$$qAddy[1]");
last;
}
my %question = %{$self->survey->question([$$qAddy[0],$$qAddy[1]])};
$question->{'text'} =~ s/\[\[([^\%]*?)\]\]/$self->getPreviousAnswer($1)/eg;
$question{'text'} =~ s/\[\[([^\%]*?)\]\]/$self->getPreviousAnswer($1)/eg;
delete $question{answers};
$question{id} = "$$qAddy[0]-$$qAddy[1]";
$question{sid} = "$$qAddy[0]";