Mailing List Archive

On 24/05/16 01:03, Mike Heins wrote:
> + my $extra = '';
> + if( my $f = $s->[$CONFIG]{TIMESTAMP_FIELD} and exists $s->[$CONFIG]{NO_UPDATE}{$column} ) {
> + $extra = "$f = $f, ";
> + }
> +
> my @args;
> if(!$q) {
> - $q = qq{update $s->[$QTABLE] SET $column = ? where $s->[$QKEY] = ?};
> + $q = qq{update $s->[$QTABLE] SET $extra$column = ? where $s->[$QKEY] = ?};

$f should be quoted if QUOTE_IDENTIFIERS is set.


Peter

_______________________________________________
interchange-users mailing list
interchange-users@icdevgroup.org
http://www.icdevgroup.org/mailman/listinfo/interchange-users