}
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 ($) {
}
sub db_connect () {
- $dbh= connect_core($dbfn);
+ $dbh= db_connect_core($dbfn);
}
sub db_doall ($) {