[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