routesearch: include tableau in stdout

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

diff --git a/yarrg/CommodsDatabase.pm b/yarrg/CommodsDatabase.pm
index 79744cede7254daabbb07cd0db1941d2e0b7eae2..c72bc2dffb9663f08c2d160157d9b785c71cbe2a 100644 (file)
--- a/yarrg/CommodsDatabase.pm
+++ b/yarrg/CommodsDatabase.pm
@@ -45,7 +45,7 @@ BEGIN {
     @ISA         = qw(Exporter);
     @EXPORT      = qw(&db_setocean &db_writer &db_connect $dbh
                      &db_filename &db_doall &db_onconflict
     @ISA         = qw(Exporter);
     @EXPORT      = qw(&db_setocean &db_writer &db_connect $dbh
                      &db_filename &db_doall &db_onconflict

-                     &dbr_filename &dbr_connect);
+                     &dbr_filename &dbr_connect &db_connect_core);

     %EXPORT_TAGS = ( );
 
     @EXPORT_OK   = qw();
     %EXPORT_TAGS = ( );
 
     @EXPORT_OK   = qw();


@@ -60,7 +60,7 @@ sub dbr_connect ($$) {
     return connect_core(dbr_filename($datadir,$ocean));
 }
 
     return connect_core(dbr_filename($datadir,$ocean));
 }
 

-sub connect_core ($) {
+sub db_connect_core ($) {

     my ($fn)= @_;
     my $h= DBI->connect("dbi:SQLite:$fn",'','',
                       { AutoCommit=>0,
     my ($fn)= @_;
     my $h= DBI->connect("dbi:SQLite:$fn",'','',
                       { AutoCommit=>0,