From 108a8cdeba1fbfe5280a4cee3180ade9eef41240 Mon Sep 17 00:00:00 2001
From: timriker <timriker@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sat, 2 Nov 2002 07:36:14 +0000
Subject: [PATCH] val not key

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk@592 c11ca15a-4712-0410-83d8-924469b57eb5
---
 blootbot/src/db_dbm.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/blootbot/src/db_dbm.pl b/blootbot/src/db_dbm.pl
index 9a9126c..909ed18 100644
--- a/blootbot/src/db_dbm.pl
+++ b/blootbot/src/db_dbm.pl
@@ -138,7 +138,7 @@ sub dbGet {
 
     &DEBUG("dbGet: select=>'$select'.");
     my @array = split "$;", ${"$table"}{lc $val};
-    unshift(@array,$key);
+    unshift(@array,$val);
     for (0 .. $#format) {
 	my $str = $format[$_];
 	next unless (grep /^$str$/, split(/\,/, $select));
-- 
2.39.5