Changeset 23166 for main/trunk/greenstone2/perllib/dbutil/sqlite.pm

Timestamp:

2010-10-19T12:05:12+13:00 (14 years ago)

Author:

kjdon

Message:

copying code from gdbm.pm: Attached :utf8 encoding to db pipes to prevent double encoding problem with incremental buildcol.pl

File:

• main/trunk/greenstone2/perllib/dbutil/sqlite.pm (modified) (2 diffs)

main/trunk/greenstone2/perllib/dbutil/sqlite.pm

@@ -54 +54 @@
   }
 
+  binmode($infodb_handle,":utf8");
+
   print $infodb_handle "CREATE TABLE IF NOT EXISTS data (key TEXT PRIMARY KEY, value TEXT);\n";
   print $infodb_handle "CREATE TABLE IF NOT EXISTS document_metadata (id INTEGER PRIMARY KEY, docOID TEXT, element TEXT, value TEXT);\n";
@@ -99 +101 @@
   else {
 
+      binmode($infodb_handle, ":utf8");
       my $line;
       while (defined($line=<$infodb_handle>)) {