X-Git-Url: http://Server1/repobrowser/?a=blobdiff_plain;f=cgi-files%2FModules%2FDatabase%2FSQLite.pm;h=270f8fa2b33142768a4ffab5e344d3ddb95b43cd;hb=d99865d4b60e2343edd247b060efc65f92ce1a51;hp=92bce19427e861843066985d8528837af760875c;hpb=ae7ec57550d2ef5f947954c6cc4e06b4e27769b1;p=kiriwrite%2F.git

diff --git a/cgi-files/Modules/Database/SQLite.pm b/cgi-files/Modules/Database/SQLite.pm
index 92bce19..270f8fa 100644
--- a/cgi-files/Modules/Database/SQLite.pm
+++ b/cgi-files/Modules/Database/SQLite.pm
@@ -30,7 +30,7 @@ use warnings;
 
 # Load the following Perl modules.
 
-use DBI qw();
+use DBI qw(:sql_types);
 
 # Set the following values.
 
@@ -1793,7 +1793,7 @@ sub connectfilter{
 	# Connect to the template database.
 
 	$filterdb_database_handle = DBI->connect("dbi:SQLite:dbname=filters.db.sqlite");
-	$database_handle->{unicode} = 1;
+	$filterdb_database_handle->{unicode} = 1;
 	$filterdb_loaded = 1;
 
 }
@@ -2317,7 +2317,7 @@ sub connecttemplate{
 	# Connect to the template database.
 
 	$template_database_handle = DBI->connect("dbi:SQLite:dbname=templates.db.sqlite");
-	$database_handle->{unicode} = 1;
+	$template_database_handle->{unicode} = 1;
 	$templatedb_loaded = 1;
 
 }