Added Survey feedback template

Added survey feedback template and method for returning the templated feedback for a given response
Used this to clean up the default survey template, and updated the i18n and help
This commit is contained in:
Patrick Donelan 2009-05-13 08:59:50 +00:00
parent c4cd3c0940
commit fdf7e68827
7 changed files with 220 additions and 75 deletions

View file

@ -22,7 +22,7 @@ my $session = WebGUI::Test->session;
#----------------------------------------------------------------------------
# Tests
my $tests = 55;
my $tests = 56;
plan tests => $tests + 1;
#----------------------------------------------------------------------------
@ -79,6 +79,7 @@ SKIP: {
q{jump { answered(n) && !answered(X) } target}, # answered() works
q{jump { value(multi) eq 'answer1, answer2' } target}, # multi-answer question stringifies in scalar context
q{jump { (value(multi))[1] eq 'answer2' } target}, # multi-answer question returns list in list context
q{ sub mySub { return $_[0] + 2 } jump { mySub(1) == 3 } target } # expressions can define and use subs
);
my @should_not_jump = (