[interchange] COLUMN_INDEX is lowercase.
Peter Ajamian
interchange-cvs at icdevgroup.org
Sun Mar 22 04:56:47 UTC 2015
commit 6f9add3e771470488e3875daa9cb83ea780ca17d
Author: Peter Ajamian <peter at pajamian.dhs.org>
Date: Sun Mar 22 17:52:26 2015 +1300
COLUMN_INDEX is lowercase.
lib/Vend/Table/DBI.pm | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
---
diff --git a/lib/Vend/Table/DBI.pm b/lib/Vend/Table/DBI.pm
index f159043..68f94f6 100644
--- a/lib/Vend/Table/DBI.pm
+++ b/lib/Vend/Table/DBI.pm
@@ -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";
@@ -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");
More information about the interchange-cvs
mailing list