Changeset 2495 for branches/release-39/lib/MT/ObjectDriver/SQL.pm

Timestamp:

06/03/08 21:36:36 (18 months ago)

Author:

bchoate

Message:

Fix using binds for 'not in ...' clauses. BugId:80003

Files:

• branches/release-39/lib/MT/ObjectDriver/SQL.pm (modified) (2 diffs)

branches/release-39/lib/MT/ObjectDriver/SQL.pm

@@ -157 +157 @@
                 my $v = $val->{not};
                 if ('ARRAY' eq ref($v)) {
-                    my $v = 'NOT IN (' . join(',', @$v) . ')';
-                    $val = \$v;
+                    if(my $transformed_column = $stmt->transform->{$col}) {
+                        $col = $transformed_column;
+                    }
+                    my $term = $col . ' NOT IN (' . join (',', ('?') x scalar @$v ) . ')';
+                    return ($term, $v, $col);
                 } elsif (ref $v) {
                     die "Unsupported value in 'not' column";
@@ -261 +264 @@
         if ($stmt->not->{$col}) {
             if ('ARRAY' eq ref($val)) {
-                my $v = 'NOT IN (' . join(',', @$val) . ')';
-                $val = \$v;
+                if(my $transformed_column = $stmt->transform->{$col}) {
+                    $col = $transformed_column;
+                }
+                my $term = $col . ' NOT IN (' . join (',', ('?') x scalar @$val ) . ')';
+                return ($term, $val, $col);
             }
             elsif (ref $val) {