val not key

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@592 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/db_dbm.pl b/src/db_dbm.pl
index 9a9126c6bd7415eee75fae04836faac1297c15f4..909ed1858f107f0000d670c06a658c7b018a3bb7 100644 (file)
--- a/src/db_dbm.pl
+++ b/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));