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

More minor edits from flux branch

Browse source
This commit is contained in:
Patrick Donelan 2009-01-14 06:15:10 +00:00
parent 42ce45f825
commit a02cbf95a7
1 changed files with 15 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -524,7 +524,7 @@ call to goto($target).
The expression is a simple subset of the formula language used in spreadsheet programs such as Excel, OpenOffice, Google Docs etc.. The expression is a simple subset of the formula language used in spreadsheet programs such as Excel, OpenOffice, Google Docs etc..
Here is an example using section variables S1 and S2 as jump targets and question variables Q1-3 in the expression. Here is an example using section variables S1 and S2 as jump targets and question variables Q1-3 in the expression.
It jumps to S1 if the user's answer to Q1 has a value of 3, jumps to S2 if Q2 + Q3 < 10, and otherwise doesn't branch at all (the default). It jumps to S1 if the user's answer to Q1 has a value of 3, jumps to S2 if Q2 + Q3 < 10, and otherwise doesn't branch at all (the default).
S1: Q1 = 3 S1: Q1 = 3
S2: Q2 + Q3 < 10 S2: Q2 + Q3 < 10
@ -552,11 +552,11 @@ But for now those things can be done manually using the limited subset defined.
sub gotoExpression { sub gotoExpression {
my $self = shift; my $self = shift;
my $expression = shift; my $expression = shift;
my %responses = ( my %responses = (
# questionName => response answer value # questionName => response answer value
); );
# Populate %responses with the user's data.. # Populate %responses with the user's data..
foreach my $q (@{ $self->returnResponseForReporting() }) { foreach my $q (@{ $self->returnResponseForReporting() }) {
if ($q->{questionName} =~ /\w/) { if ($q->{questionName} =~ /\w/) {
@ -564,17 +564,17 @@ sub gotoExpression {
$responses{$q->{questionName}} = $value if defined $value; $responses{$q->{questionName}} = $value if defined $value;
} }
} }
# Process gotoExpressions one after the other (first one that's true wins) # Process gotoExpressions one after the other (first one that's true wins)
foreach my $line (split '\n', $expression) { foreach my $line (split '\n', $expression) {
my $processed = $self->processGotoExpression($line, \%responses); my $processed = $self->processGotoExpression($line, \%responses);
next unless $processed; next unless $processed;
# (ab)use perl's eval to evaluate the processed expression # (ab)use perl's eval to evaluate the processed expression
my $result = eval "$processed->{expression}"; my $result = eval "$processed->{expression}";
$self->warn($@) if $@; $self->warn($@) if $@;
if ($result) { if ($result) {
$self->debug("Truthy, goto [$processed->{target}]"); $self->debug("Truthy, goto [$processed->{target}]");
$self->goto($processed->{target}); $self->goto($processed->{target});
@ -590,7 +590,7 @@ sub gotoExpression {
=head2 processGotoExpression ( $expression, $responses) =head2 processGotoExpression ( $expression, $responses)
Parses a single gotoExpression. Returns undef if processing fails, or the following hashref Parses a single gotoExpression. Returns undef if processing fails, or the following hashref
if things work out well: if things work out well:
{ target => $target, expression => $expression } { target => $target, expression => $expression }
=head3 $expression =head3 $expression
@ -605,14 +605,14 @@ Hashref that maps questionNames to response values
Uses the following simple strategy: Uses the following simple strategy:
First, parse the expression as: First, parse the expression as:
target: expression target: expression
Replace each questionName with its response value (from the $responses hashref) Replace each questionName with its response value (from the $responses hashref)
Massage the expression into valid perl Massage the expression into valid perl
Check that only valid tokens remain. This last step ensures that any invalid questionNames in Check that only valid tokens remain. This last step ensures that any invalid questionNames in
the expression generate an error because our list of valid tokens doesn't include a-z the expression generate an error because our list of valid tokens doesn't include a-z
=cut =cut
@ -624,9 +624,9 @@ sub processGotoExpression {
$self->debug("Processing gotoExpression: $expression"); $self->debug("Processing gotoExpression: $expression");
# Valid gotoExpression tokens are.. # Valid gotoExpression tokens are..
my $tokens = qr{\s|[-0-9=!<>+*/.()]}; my $tokens = qr{\s|[-0-9=!<>+*/.()]};
my ( $target, $rest ) = $expression =~ /\s* ([^:]+?) \s* : \s* (.*)/x; my ( $target, $rest ) = $expression =~ /\s* ([^:]+?) \s* : \s* (.*)/x;
$self->debug("Parsed as Target: [$target], Expression: [$rest]"); $self->debug("Parsed as Target: [$target], Expression: [$rest]");
@ -653,9 +653,9 @@ sub processGotoExpression {
$self->warn("Contains invalid tokens: $rest"); $self->warn("Contains invalid tokens: $rest");
return; return;
} }
$self->debug("Processed as: $rest"); $self->debug("Processed as: $rest");
return { return {
target => $target, target => $target,
expression => $rest, expression => $rest,
@ -854,7 +854,7 @@ Logs an error to the webgui log file, using the session logger.
=cut =cut
sub log { sub log {
my ( $self, $message) = @_; my ( $self, $message ) = @_;
if ( defined $self->{log} ) { if ( defined $self->{log} ) {
$self->{log}->debug($message); $self->{log}->debug($message);
} }