Skip to content
Permalink
Browse files

Fixes to make WebGUI compatible with newer perls.

  • Loading branch information...
perlDreamer committed Jun 29, 2012
1 parent 0422807 commit dc4f813a5f9ffd7f66f6bd16f7f52c26e540467c
Showing with 2 additions and 2 deletions.
  1. +2 −2 lib/WebGUI/Asset/Wobject/Survey.pm
@@ -1399,7 +1399,7 @@ sub view {
my $responseDetails = $self->getResponseDetails || {};

# Add lastResponse template vars
for my $tv qw(endDate complete restart timeout timeoutRestart) {
for my $tv ( qw(endDate complete restart timeout timeoutRestart) ) {
$var->{"lastResponse\u$tv"} = $responseDetails->{$tv};
}
$var->{lastResponseFeedback} = $responseDetails->{templateText};
@@ -2185,7 +2185,7 @@ sub takenCount {
my $sql = 'select count(*) from Survey_response where';
$sql .= ' assetId = ' . $self->session->db->quote($self->getId);
$sql .= ' and isComplete = ' . $self->session->db->quote($isComplete);
for my $o qw(userId ipAddress) {
for my $o ( qw(userId ipAddress) ) {
if (my $o_value = $opts{$o}) {
$sql .= " and $o = " . $self->session->db->quote($o_value);
}

0 comments on commit dc4f813

Please sign in to comment.
You can’t perform that action at this time.