Make shifted keys actually work. Modifier map contains codes, not syms

[ypp-sc-tools.db-test.git] / yarrg / CommodsDatabase.pm

diff --git a/yarrg/CommodsDatabase.pm b/yarrg/CommodsDatabase.pm
index c72bc2dffb9663f08c2d160157d9b785c71cbe2a..c51008003b7ef64af5914c96dc9db8d0a8674fd6 100644 (file)
--- a/yarrg/CommodsDatabase.pm
+++ b/yarrg/CommodsDatabase.pm
@@ -57,7 +57,7 @@ sub dbr_filename ($$) {
 }
 sub dbr_connect ($$) {
     my ($datadir,$ocean) = @_;
-    return connect_core(dbr_filename($datadir,$ocean));
+    return db_connect_core(dbr_filename($datadir,$ocean));
 }
 
 sub db_connect_core ($) {
@@ -110,7 +110,7 @@ sub db_writer () {
 }
 
 sub db_connect () {
-    $dbh= connect_core($dbfn);
+    $dbh= db_connect_core($dbfn);
 }
 
 sub db_doall ($) {