chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-live.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Minor layout fixes
[ypp-sc-tools.db-live.git]
/
yarrg
/
CommodsDatabase.pm
diff --git
a/yarrg/CommodsDatabase.pm
b/yarrg/CommodsDatabase.pm
index 79744cede7254daabbb07cd0db1941d2e0b7eae2..c51008003b7ef64af5914c96dc9db8d0a8674fd6 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();
@@
-57,10
+57,10
@@
sub dbr_filename ($$) {
}
sub dbr_connect ($$) {
my ($datadir,$ocean) = @_;
}
sub dbr_connect ($$) {
my ($datadir,$ocean) = @_;
- return connect_core(dbr_filename($datadir,$ocean));
+ return
db_
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,
@@
-110,7
+110,7
@@
sub db_writer () {
}
sub db_connect () {
}
sub db_connect () {
- $dbh= connect_core($dbfn);
+ $dbh=
db_
connect_core($dbfn);
}
sub db_doall ($) {
}
sub db_doall ($) {