Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
COLUMN_INDEX is lowercase.
  • Loading branch information
pajamian committed Mar 22, 2015
1 parent 5f1acc7 commit 6f9add3
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions lib/Vend/Table/DBI.pm
Expand Up @@ -1272,7 +1272,7 @@ sub get_slice {
$fary = [ @_ ];
}

$fary = [map {$s->[$QNAME][$s->[$CONFIG]{COLUMN_INDEX}{$_}]} @$fary] if $s->[$CONFIG]{QUOTE_IDENTIFIERS};
$fary = [map {$s->[$QNAME][$s->[$CONFIG]{COLUMN_INDEX}{lc $_}]} @$fary] if $s->[$CONFIG]{QUOTE_IDENTIFIERS};

my $fstring = join ",", @$fary;
$sql = "SELECT $fstring from $s->[$QTABLE] WHERE $s->[$QKEY] = $tkey";
Expand Down Expand Up @@ -1363,7 +1363,7 @@ sub set_slice {
}
}

$fary = [map {$s->[$QNAME][$s->[$CONFIG]{COLUMN_INDEX}{$_}]} @$fary] if $s->[$CONFIG]{QUOTE_IDENTIFIERS};
$fary = [map {$s->[$QNAME][$s->[$CONFIG]{COLUMN_INDEX}{lc $_}]} @$fary] if $s->[$CONFIG]{QUOTE_IDENTIFIERS};

$tkey = $s->quote($key, $s->[$KEY]) if defined $key;
#::logDebug("tkey now $tkey");
Expand Down

0 comments on commit 6f9add3

Please sign in to comment.