@ -64,7 +64,7 @@ my $texttable_encoding = 'UTF-8'; # sqlite returns whats inserted...
$ DBD:: SQLite:: COLLATION { no_accents } = sub {
$ DBD:: SQLite:: COLLATION { no_accents } = sub {
my ( $ a , $ b ) = map lc , @ _ ;
my ( $ a , $ b ) = map lc , @ _ ;
tr [ 珞砌 裙 銜 韭 鴉 <EFBFBD> 瀅 <EFBFBD> <EFBFBD> <EFBFBD> <EFBFBD> 馞 <EFBFBD> ]
tr [ àâ á ä å ã ç ð è ê é ë ì î í ï ñ ò ô ó ö õ ø ù û ú ü ý ]
[ aaaaaacdeeeeiiiinoooooouuuuy ] for $ a , $ b ;
[ aaaaaacdeeeeiiiinoooooouuuuy ] for $ a , $ b ;
$ a cmp $ b ;
$ a cmp $ b ;
} ;
} ;
@ -269,6 +269,9 @@ sub db_connect {
#PRAGMA locking_mode = NORMAL ... by default
#PRAGMA locking_mode = NORMAL ... by default
#$self->db_do('PRAGMA auto_vacuum = INCREMENTAL');
#$self->db_do('PRAGMA auto_vacuum = INCREMENTAL');
#$self->db_do('PRAGMA read_uncommitted = ' . $read_uncommitted_isolation_level);
#$self->db_do('PRAGMA read_uncommitted = ' . $read_uncommitted_isolation_level);
if ( $ local_db_path and ( $ filemode == $ staticdbfilemode or $ filemode == $ timestampdbfilemode ) ) {
$ self - > db_do ( "PRAGMA temp_store_directory = '$local_db_path'" ) ;
}
dbinfo ( $ self , 'connected' , getlogger ( __PACKAGE__ ) ) ;
dbinfo ( $ self , 'connected' , getlogger ( __PACKAGE__ ) ) ;