--- db/prgsrc/mkdb.pl	2000/11/11 00:26:17	1.9
+++ db/prgsrc/mkdb.pl	2003/01/08 21:54:49	1.15
@@ -23,7 +23,7 @@ The database, user and password are hard
 
 Dmitry Rubinstein
 
-=head1 $Id: mkdb.pl,v 1.9 2000/11/11 00:26:17 boris Exp $
+=head1 $Id: mkdb.pl,v 1.15 2003/01/08 21:54:49 roma7 Exp $
 
 =cut
 
@@ -37,7 +37,7 @@ sub CheckTable
 	my ($TabName) = @_;
 	my ($ans);
 
-	if (scalar(grep(/^$TabName$/, @tbl_list))) {
+	if (scalar(grep(/^$TabName$/i, @tbl_list))) {
 		print "Table $TabName exists. Do you want to delete it? ";
 		$ans = <STDIN>;
 		if ($ans =~ /[yY]/) {
@@ -67,13 +67,16 @@ print "Connected successfully\n";
 			KEY ParentIdKey (ParentId),
 		Number 	       SMALLINT UNSIGNED NOT NULL,
 			KEY NumberKey (Number),
-		Type 		TEXT NOT NULL,
+		Type 		CHAR(5) NOT NULL DEFAULT 'þ',
+		        KEY TypeKey (Type),
 		Question 	TEXT,
 		Answer 		TEXT,
 		Authors 	TEXT,
 		Sources 	TEXT,
 		Comments 	TEXT,
-                Rating          TEXT
+                Rating          TEXT,
+                Topic           TEXT,
+                ProcessedBySearch  INT
 	)")
 	or die "Can't create Questions table: $!\n";
 	
@@ -85,7 +88,7 @@ print "Connected successfully\n";
 		ParentId 	INT UNSIGNED NOT NULL,
 			KEY ParentIdKey (ParentId),
 		Title 		TINYTEXT NOT NULL,
-                Number    SMALLINT UNSIGNED NOT NULL,
+                Number    SMALLINT UNSIGNED,
 		QuestionsNum INT UNSIGNED DEFAULT 0,
 		Type 		ENUM('ç','ô','þ'),
 		Copyright 	TEXT,