Skip to content
Permalink
Browse files

Fix some warnings under perl 5.14.2

  • Loading branch information...
perlDreamer committed Jan 7, 2012
1 parent bfa1b74 commit 56ca2b046113cdc72ca4db394843ae7cf5325aee
Showing with 2 additions and 2 deletions.
  1. +2 −2 lib/WebGUI/Asset/Wobject/Survey.pm
@@ -1372,7 +1372,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};
@@ -2158,7 +2158,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 56ca2b0

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